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1. PURPOSE 

THE KEYBOARD PRINTER FUNCTION TEST CHECKS THE OPERATING PERFORMANCE OF 

THE PRINTER AND KEYBOARD ANO A10S IN THEIR PROPER ADJUSTMENT WHILE BEING 

RUN IN OVERLAP WITH OTHER SYSTEM FUNCTIONS. 

2. PREREQUISITES 

THIS PROGRAM MUST RUN UNDER CONTROL OF THE DIAGNOSTIC MONITOR. 
THE DIAGNOSTIC MONITOR PROGRAM USES ItSOO STORAGE WORDS. AND THIS 
PROGRAM USES 1,200 STORAGE WOROS. 
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OPERATING PROCEDURE 

3.1*** PROGRAM LOADING 

STANDARD MONITOR LOADING PROCEDURES APPLY 

THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR 
DETAILS. 

1. SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEFT MARGIN. 

2. SET BIT SWITCH 15 OFF - LOAD ANO GO 

ON - TO SPECIFY OPTIONS BEFORE RUNNING. 

IF HALTEO AFTER LOADINGS SELECT PROGRAM OPTIONS THEN TURN OFF HALT 
SWITCH OR FOLLOW NORMAL RESTART PROCEDURE I SECTION 3.51. 

3. LOAD DIAGNOSTIC MONITOR AND KEYBOARD PRINTER TEST. 

4. SELECT PROGRAM OPTIONS, IF DESIRED. 

****** 

3.2*** PROGRAM OPERATION. 

STANDARD MONITOR OPERATING PROCEDURES APPLY. 

THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR 

DETAILS. 

3.2.1 PROGRAM CONTROL - FUNCTION 



1. 
2. 



SET SWITCHES 0-7 TO 01. 

SET SNITCHES 8-15 AS DESIRED. 



SW 



FUNCTION 



8 RESTART 

9 ROUTINE START MESSAGE 

10 LOCK ON FUNCTION 

11 LOOP PROGRAM 

12 LOOP ON ERROR 

13 BYPASS ERROR PRINTOUT 

14 HALT ON ERROR 

15 HALT 



3. PRESS INT REO KEY ON CONSOLE. 

** 

3.2.2 ROUTINE SELECTION - FUNCTION 1 

THE SELECTED ROUTINE WILL LOOF UNTIL A NEW ROUTINE IS SELECTED. 
1. TO SET ROUTINE SELECTION 

A. SET SWITCHES 0-7 TO 4l. 

B. SET ROUTINE NUMBER IN SWITCHES 12-15 



DATE 02JAN66 
EC NO. 415490 



RTN DESCRIPTION 




1 


PRINT LAST KEYBOARD ENTRY 


NORMAL ROUTINES- 


? 


TAB ANO CARRIER RETURN 


THE PROGRAM STARTS WITH 


3 


UPPER CASE CHARACTERS 


, ROUTINE 1, RUNS EACH 


4 


LOWER CASE CHARACTERS 


, ROUTINE IN SEQUENCE 


5 


REGISTRATION 


. THEN TERMINATES AFTER 


6 


BACKSPACE AND INDEX 


ROUTINE A. 


7 


END OF LINE CARRIER RETURN 




8 


ROCK 




9 


TWIST 




A 


ROLL 
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3.3.2 ERROR HALTS 



PRINT BIT SNITCH IMAGE 



OPTIONAL ROUTINES 
MUST BE SELECTED 



• - REFER TO SECTION 3.2.3 FOR SPECIAL INSTRUCTIONS. 
C. PRESS INT REO KEY ON CONSOLE. 

2. TO RESET ROUTINE SELECTION SET AS IF SELECTING ROUTINE ZERO. 

** 

3.2.3 PRINT FROM BIT SNITCHES 

ROUTINE B HILL ALTERNATELY PRINT TWO CHARACTERS SET IN THE BIT 
SNITCHES. TO SPECIFY THE DESIRED CHARACTERS. SET SNITCH 0-7 AND 
8-15 TO THE ROTATE AND TILT CODE FOR THE CHARACTERS. 

3.3*»» PROGRAM HALTS 
3.3.1 NORMAL HALTS 



.HALT NO 
.18 REG). 

1 3001 

. 3002 . 


DESCRIPTION 

', PROGRAM STOP OR ADORESS STOP . 
HALT ON ERROR 


RESTART 
ACTION 


PRESS START 

DISPLAY MODE-PRESS START. 
RUN MODE-PRESS START 



HALT NO. 


DESCRIPTION 


RESTART 


IB REG). 




ACTION 


30F1 '. 


CHECK SUM ERROR ON FIRST 


RELOAD 




CARD OF LOADER 


. 


30F2 


REAOER DSN ERROR HHEN 
LOADING LOAOER 


RELOAO 


30F3 . 


CARD 2 OF LOADER DID NOT 
LOAD 


RELOAD 


30F4 , 


CAN NOT CLEAR CORE - DUE TO . 
, ERROR IN ADDRESSING UPPER 
CORE. 




30F5 . 


READER CHECK HHEN LOADING 


NPRO THEN PLACE CARDS . 




MONITOR OR TEST PROGRAM 


RUN OUT IN FRONT OF 
REMAINING DECK AND PRESS. 
START. 


30F6 , 


MONITOR DID NOT LOAD 


RELOAD 


30F7 . 


CHECK SUM HHEN LOADING i . 
MONITOR ' 


RELOAD 


30F8 


READER NOT READY 


HAKE READER READY 


30F9 . 


INVALID INTERRUPT HHICH WILL 
NOT RESET 


PRESS RESET AND START 


30FA < 


CONSOLE PRINTER HANG UP - 


FIX THE CONSOLE PRINTER . 





. BUSY HILL NOT GO OFF 


OR NOP THIS NAIT 



3.4*** PROGRAM TERMINATION 

IF LOOP PROGRAM HAS NOT BEEN SPECIFIED THE PROGRAM HILL TERMINATE 
AT THE END OF ROUTINE 7. ROUTINE 7. A, AND E HILL ONLY RUN 
SELECTED. 

IF ANY ROUTINE IS SELECTED THAT ROUTINE HILL LOOP AND HILL NOT 
TERMINATE. 

•••*•• 

3.5*** RESTART 

1. SET SNITCHES 0-7 TO 01. 

2. TURN ON SHITCH 8. 

3. SET DESIRED CONTROL IN SWITCHES 9-14. 

4. PRESS INTERRUPT REQUEST KEY. 

********** 
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4. PRINTOUTS 



ALL PRINTOUTS ARE IN THE STANDARD FORMAT. 



APPNN OORR AAAA 

OR 

EPPNN OORR AAAA 

WHERE 



(MESSAGEI 

IMESSAGEI 

A IDENTIFIES STATUS MESSAGES 
E IDENTIFIES ERROR MESSAGES 
PP IS THE PID OF THE PROGRAM CAUSING THE MESSAGE 

THIS HILL BE EITHER 00 FOR MESSAGES 
ORIGINATED BY THE MONITOR OR 
04 FOR MESSAGES ORIGINATED BY 

THIS PROGRAM. 



NN 

RR 

AAAA 

MESSAGE 

4M*»* STATUS MESSAGES 



IS THE MESSAGE SEQUENCE NUMBER 

IS THE ROUTINE NUMBER 

IS THE ADDRESS OF THE ROUTINE 

IS ANY VARIABLE INFORMATION 



************************************************* 
TYPEWRITER-KEYBOARD DSW 



BIT 

TYPEWRITER SERVICE RESPONSE 

1 KEYBOARD RESPONSE 

2 KEYBOARD REQUEST 

3 ON - CONSOLE ENTRY OFF - KEYBOARD 
* TYPEWRITER BUSY 

5 TYPEWRITER NOT READY 

6 KEYBOARD BUSY 

7 NOT USED 
B NOT USED 
9 NOT USED 

10 NOT USED 

11 NOT USED 

12 NOT USED 

13 NOT USED 
1* NOT USED 
IS NOT USED 



AOOOO 



NUM PID ADRS RELF 
XXXX XXXX XXXX XXXX 



LD 



E0001 



A0001 



THIS MESSAGE IS PRINTED FOLLOWING THE LOAOING OF ANY PROGRAM (EXCEPT 
MONITOR*. THE MESSAGE GIVES THE LOAD SEQUENCE NUMBER, THE PROGRAM 
10, THE ADDRESS INTO WHICH THE PROGRAM WAS LOADED, AND THE RELOCATION 

FACTOR. 



SWS PID 
XXXX XXXX 

THIS MESSAGE IS PRINTEO EACH TIME A VALID SWITCH ENTRY IS READ BY THE 
MONITOR. THE MESSAGE CONTAINS THE SWITCH SETTING READ TOGETHER WITH 
THE PROGRAM ID OF THE PROGRAM INTO WHICH THE CONTENTS OF SWITCHES 8-15 
WERE STORED. IF THE SWITCH ENTRY CALLED FOR HALT OF ANY PROGRAM, THE 
WORD HALT WILL FOLLOW THE MESSAGE. 



SWS INVLD 
XXXX 

THE SETTING OF SWITCHES 4-7 DID NOT EQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PROGRAM IN CORE. 



E0003 



E0004 



A0400 OOOR AAAA 



ROUTINE START MESSAGE - IF SWITCH 9, FUNCTION 0, IS TURNED ON, THIS 
MESSAGE WILL BE PRINTED BEFORE THE START OF EACH ROUTINE. R IS THE 
NUMBER OF THE NEXT ROUTINE AND AAAA IS THE STARTING ADDRESS. 



A0401 OOOR AAAA 

OR 
A0401 OOOR AAAA 



CONSOLE 
KEYBOARO 



E0005 



THIS MESSAGE INDICATES THE POSITION OF THE CONSOLE/KEYBOARD SWITCH 
EACH TIME IT IS CHANGED. 

****** 

4.2»»» ERROR MESSAGES 

THE DSW IS CHECKED FOR ABSOLUTE CORRECTNESS AT ALL TIMES. IF AN 
ERROR IS DETECTEO ONE OF THE MESSAGES BELOW WILL INDICATE THE 
PROBLEM. IT IS LEFT TO THE OPERATOR TO ANALYZE THE OSW FOR THE 
SPECIFIC PROBLEM AREA. 



OVR CORE 

THE PROGRAM WHICH THE LOADER WAS ATTEMPTING TO LOAD 
EXCEEDED AVAILABLE CORE. LOADING WAS TERMINATED. 



CKSUM 

A CHECK SUM ERROR WAS DETECTED WHILE LOADING A TEST PROGRAM. 
THIS ERROR OCCURS UNDER ANY OF THE FOLLOWING CONDITIONS. 



1. 
2. 
3. 
4. 
5. 



A CARD IS MISSING OR IS OUT OF SEQUENCE. 

THERE IS AN EXTRA CARO IN THE DECK. 

THE PUNCHED INFORMATION ON THE CARD IS NOT CORRECT. 

DATA WAS LOST OR PICKEO UP DUE TO A MACHINE MALFUNCTION. 

DUE TO A CPU MALFUNCTION, THE CHECK SUM WAS NOT 

CORRECTLY CALCULATED. 



WHEN THIS ERROR OCCURS ATTEMPT TO RELOAD THE PROGRAM. 



OOON XXXX 

THIS ERROR WILL OCCUR IS AN INTERRUPT OCCURS, BUT THE ILSW 
WAS NOT CORRECT. N IS THE INTERRUPT LEVEL AND XXXX IS THE 
ILSW. THIS PRINTOUT WILL ONLY OCCUR IF THE INTERRUPT IS RESET 
BY A BOSI. NO ATTEMPT IS MADE BY THE ERROR ROUTINE TO RESET 
THE REQUEST BIT. 



E0401 OOOR AAAA XXXX XOOO 

DSW ERROR ON CHECKING FOR READY 
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E0402 OOOR AAAA XXXX XCOO 

OSM ERROR IMMEDIATELY AFTER OUTPUT COMMAND. 



E0403 OOOR AAAA XXXX XXOO 

INTERRUPT DSH ERROR 



E0404 OOOR AAAA 



XXXX XOOO 



LOST PRINTER INTERRUPT. 

DSH AFTER LAST XIO WRITE COMMAND IS PRINTED 



E0405 OOOR AAAA 



XXXX 



KEYCODE ENTRY ERROR. AM ILLEGAL KEYBOARD CODE HAS BEEN DETECTEO. 

THE KEYBOARD CODE SHOULD HAVE BEEN AN IMAGE OF CARD HOLERITH. COLS 

12 - 9 IN BITS 0-11, RESPECTIVELY. 



£0406 OOOR AAAA XXXX X200 

DSH ERROR ON PLACING KEYBOARD IN PROCEED STATUS 



E0407 OOOR AAAA j XXXX 0000 

DSH ERROR AFTER READ KEYBOARD COMMAND 
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5. COMMENTS 

THIS FUNCTION TEST CHECKS THE PROPER OPERATION 
STATUS INDICATORS. THE VARIOUS ROUTINES AID IN 
ADJUSTMENT OF THE PRINTER. 



OF THE PRINTER-KEYBOARD 
DETERMINING THE PROPER 



5.1*** THE PRINTER TEST. 

THE PRINTER TEST IS A SERIES OF STANDARD TESTS PERFORMED IN ORDER OF 
COMPLEXITY. EACH TEST HAS THO LINES OF OUTPUT I THE FIRST IN BLACK 
AND THE SECOND IN RED). THE ONLY EXCEPTION IS THE REGISTRATION TEST 
WHICH HAS ONLY ONE LINE. 



THE NORMALLY RUN ROUTINES ARE DONE SEQUENTIALLY 



AS FOLLOWS, 



1. PRINT LAST KEYBOARD ENTRY. 

2. CARRIER RETURN ANO TABULATE. 

3. UPPER CASE CHARACTERS. 

4. LOWER CASE CHARACTERS. (SHIFT SIDE OF ELEMENT). 

5. REGISTRATION 

THIS TEST PRINTS A BLACK •+• ENCLOSED BY A RED «0'. IT 
CHECKS THE BACKSPACE FUNCTION AND THE ALIGNMENT OF THE PRINT. 

6. BACKSPACE, INDEX. 

CHECKS TABULATE, BACKSPACE, AND 
END OF LINE CARRIER RETURN 



LINE FEED FUNCTIONS. 



7. 



CHECKS TO SEE THAT THE END OF LINE CARRIER RETURN WORKS 
PROPERLY. 



8. ROCK 



TESTS THE TILT MECHANISM BY TYPING CHARACTERS LOCATED ONE 
AFTER ANOTHER IN VERTICAL COLUMNS ON THE PRINT HEAD. . 

ROLL 

TESTS THE ROTATE MECHANISM BY SELECTING CHARACTERS ONE AFTER 
ANOTHER IN HORIZONTAL BANDS AROUND THE PRINT HEAD. 



A. TWIST 



TESTS THE COMBINED ROTATE AND TILT MECHANISM BY 
MAXIMUM ROTATION AND TILT BETWEEN CHARACTERS. 



B. 



ROUTINES AVAILABLE FOR EXECUTION ON 
B. PRINT BIT SWITCH IMAGE 



CAUSING* 
AN OPTIONAL BASIS FOLLOW, 



THE TWO CHARACTERS IN THE BIT SWITCHES ARE ALTERNATELY 
PRINTED. 

TO ENTER THIS MODE, ROUTINE B MUST BE SPECIFIED IFCN 1). 

5.2*** THE KEYBOARD TEST I ROUTINE C> 

THE KEYBOARD TEST IS ENTERED BY SWITCHING THE CONSOLE/KEYBOARD 
{ SW.TCH TO THE KEYBOARD POSITION. 

\ AT THIS TIME THE OPERATOR MAY ENTER ANY NUMBER OF CHARACTERS. EACH 

CHARACTER ENTERED IS PRINTED AS IT IS KEYED IN. UHEN THE CONSOLE/ 
KEYBOARD SWITCH IS RETURNED TO THE CONSOLE POSITION, THE PROGRAM WILL 
LOOP ON ROUTINE ONE PRINTING THE FIRST 48 CHARACTERS ENTERED VIA THE 
KEYBOARD. IF NO ENTRY WAS MADE THEN THE PROGRAM COMPLETES THE 
PRINTER TEST. 
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ALL KEYBOARD KEYS RETAIN THEIR NORMAL USE EXCEPT* 

KEY N FUNCTION 

EOF CARRIER RETURN 

ERASE FIELD THE NEXT CHARACTER I IF ALPHABETIC! 

MILL BE IN LOWER CASE. 
0-2-8 LINE FEED 
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FIGURE 1. STANDARD TESTS PRINTOUTS 



AOltOO 0000 



CONSOLE 



CARRIER RETURN 
CARRIER RETURN 



TABULATE 
TABULATE 



ABCDEFGHIJKLMNOPQRSTUVWXYZ (♦<-);*•" |-_? : >>%* 
ABCDEFGHIJKLMN'OPQRSTUVUXYZ (♦<-);*•" |«_?:>!%t 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 123d567S90'/-,&$@. 
ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890*/-, &$@. 

•ceeee«eeeeeeeeeeeeeeofieteeeeecGeeet6eefe«eeceeeeeeeeeeecMC 

BACK SPACE 

I 

N 

D 

E 

X 
BACK SPACE 

N 
D 
E 
X 



CARRIER RETURN 



CARRIER RETURN 



*,S.IRZ96WOFDMUlt2SKB@&-0SYQHGPX75VNECLT31/JA tl :«"ZRIFOW;-*UMDBKS*|?>%HQY'»XPGENV)<TLCAJ ( 
*, $ . I RZ96WOFDMUU2SK6Q4-08YQHGPX75VNECLT31/ JA t ! : «"ZR I FOW;'UKDBKS* | ?>%HQY ' *XPGENVKTLCAjI( 

*96l»2087531/TVXY-SUWZ,$ROMK£QPNLJACEGHeBDFI. ACEGH%BDFI t!RONK>QPKLJ TVXY?SUWZ:=";~*| • •)<( 
*96l»2087531/TVXY-SUNZ,$RONK&QPt.LJACEGH6BDFI. ACEGH%BDFI4!R0MK>QPKLJ_TVXY?SUWZ:»";^*| • •)<( 

*A,J$_.(KRTZL9C6EWN0VF)D*MXUPI.G2HSQKYB , ?|&?->0%8BYK0SH*G^PUXM7D5FV0NWE;C ,, LZTR3I1«/!J:A- 
| A,J$_.(KRTZL9C6EWNOVF)D*MXUPl.G2HS(iKYB , €|&?->0%SBYKQSh>G-PUXM7D5FVONWE;C"LZTR3llC/!J:A- 
AOUFF 0000 OOOU ENO 



NOTE: SEE SECTION 5 (COMMENTS) FOR RED PRINT/BLACK PRINT DESIGNATION 



DATE 02JAN66 01MAY66 15NOV66 1 MAR 67 15JUN67 

EC NO. '♦I 5^90 k\ 5*»90B "»196'«3 419643B 420317 
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6.1 APPENDIX A 



PRINTER CHARACTER COOING 















LATCH RACKETS 




















T2 






















Tl 






















































































1 


-i-J>-5 








SO Bl B2 83 B4 


B5 


LOWER CASE 


UPPER CASE 


B7 


E6-0 


HEXADECIMAL 


B6-I 


HEXADECIMAL 





1 


1 


1 


1 


A 


3C 


A 


3E 











I 


1 





B 


16 


B 


IA 











1 


1 


! 


C 


K 


C 


IE 








1 


1 





O 


D 


30 


D 


32 








1 


1 





1 


E 


3b 


E 


36 











1 








F 


10 


F 


12 











1 





1 


G 


1*1 


G 


16 








1 








1 


H 


2*. 


H 


26 








1 











1 


20 


1 


22 





1 


I 


1 


1 


1 


J 


7C 


J 


7E 





1 





1 


1 





K 


58 


K 


5A 





1 





1 


1 


! 


L 


5C 


L 


5E 





1 


1 


1 








M 


70 


M 


72 





1 


1 


1 





1 


N 


7*. 


U 


76 





1 





1 











50 





52 





1 





1 





1 


P 


5 1 - 


p 


56 





1 


I 








] 





6*4 


Q 


66 





1 


] 











R 


60 


R 


62 





! 





I 


1 





s 


98 


5 


9A 





1 


3 


1 


1 


1 


T 


9C 


T 


9E 





! 


1 


1 


1! 


3 


U 


BO 


U 


B2 


c 


1 


1 


1 





1 


Y 


Bit 


V 


B6 





1 





1 








W 


90 


w 


92 





1 





1 





1 


X 


9*. 


X 


96 





1 


I 








1 


Y 


A*i 


Y 


A6 





1 

1 1 


1 
] 




1 




1 




1 


z 

1 


AO . 
FC 


Z 
1 


A2 

FE 






1 1 





1 


1 





2 


o8 


+ 


DA 





1 1 





1 


1 


i 


3 


DC 


« 


OE 





1 1 


1 


1 








!■ 


FO 


—i 


F2 





) 1 


1 


1 





1 


5 


Fd 


) 


F6 





1 1 





1 








6 


DO 


; 


D2 





1 I 


P 


1 





1 


7 


D*i 


* 


06 





1 1 


1 








1 


■ 8 


E*. 




E6 





1 1 


1 











9 


£0 


•• 


E2 


V 


1 1 











I 





C 


1 


C6 





I 1 














# 


CO 


- 


C2 





1 


1 


1 


1 


1 


/ 


BC 


- 


BE 





1 











1 


. 


8U 


7 


86 


c 


1 











a 


■ 


80 


; 


82 





1 











i 


I 


Uk 


> 


46 





1 














f 


UO 


1 


i.2 

















1 


<? 


ou 


t 


06 




















• 


00 


Y 


02 
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flLT 





ROTATE • 










♦ 


ROTATE 




5 


d 


3 


2 


1 





1 


2 


3 


tj 


5 





) 


< 


( 


* 


• 


1 


■♦ 


—1 


1 


" 


- 


1 




T 


V 


X 


Y 


? 


s 


U 


u 


Z 




2 


J 


L 


N 


p 


Q 


- 


K 


M 





R 


I 


3 


A 


C 


E 


G 


H 


% 


B 


D 


F 


1 


e 



TILT 





ROTATE - 












ROTATE 




5 


1* 


3 


2 


1 





1 


2 


.2. 


*i 


5 





1 


3 


5 


7 


8 





2 


t. 


6 


9 


* 


1 


/ 


T 


V 


X 


Y 


- 


S 





u 


z 


, 


2 


J 


I 


N 


P 


Q 


', 


1 


n 





R 


i 


3 


A 


C 


E 


c 


H 


a 


6 


C 


F 


1 


• 



UPPER CASE 



LOWER CASE 
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************ 



*********************************************************** 

* 

* THIS ENGINEERING CHANGE REFLECTS MAJOR 

CHANGES TO THE DIAGNOSTIC MONITOR. PREVIOUS 
TESTS WILL NOT RUN WITH DIAGNOSTIC MONITOR II. 



THIS TEST WILL NOT RUN WITH PREVIOUS MONITORS. 

TESTS PRIOR TO EC 419643 DATED NOV 15, 1966 
WILL NOT OPERATE PROPERLY WITH DIAGNOSTIC 
MONITOR II. 



************* 



0160 
0161 
0162 
0163 
0164 



0165 
0166 
0167 
0168 



017A 
018A 
019A 
01AA 
01BA 
01BB 
01BC 
01BD 



0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
OOOA 
OOOC 
OOOE 
0010 



EQU 


/160 


EOU 


BEGINtl 


EQU 


STARTE1 


EQU 


ERR0RS1 


EQU 


L0GE1 



BEGIN ROUTINE 
SUPERVISOR ROUTINE 
ERROR LOG ROUTINE 
STATUS LOG ROUTINE 
END ROUTINE 



********************************************************** 
************************************************** 

* EQUATE TABLE 

************************************************** 

* THIS TABLE EQUATES TEST PROGRAM LABELS 

* TO THEIR EQUIVALENT DIAGNOSTIC MONITOR 

* ADDRESSES. 
* 

BEGIN 
START 
ERROR 
LOG 
END 

* 

* 

* 

RTNSW EQU 

ERLCK EQU 

LOGBY EQU 

RLCF EQU 

* INTERRUPT TRANSFER VECTOR ADDRESSES 
* 

ILO 
IL1 
IL2 
IL3 
IL4 
RQTY 



MONITOR CONTROL WORD ADDRESSES 



ENDS1 
ENDC2 
END63 
ENDC4 



ROUTINE START SWITCH 
LOCK ON ERROR CONTROL 
I/O BUSY SW ADR 
RELOCATION FACTOR ADR 



RQKB 
SVKB 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



/17A 

IL0616 

IL1C16 

IL2616 

IL3616 

IL4E1 

RQTY61 

RQK8E1 



INTERRUPT LEVEL 
INTERRUPT LEVEL 
INTERRUPT LEVEL 
INTERRUPT LEVEL 
INTERRUPT LEVEL 
TYPR SVC REQUEST INTERPT 
KEYBOARD REQUEST INTERPT 
KEYBOARD SERVICE INTERPT 



ZERO 

ONE 

TWO 

THREE 

FOUR 



************************************************** 
* 

* 

* TABLE OF INDEXES FOR REFERENCE 

* TO PRINTER STATUS TABLES 
* 

* INDEX REG 3 ALWAYS HAS THE ADDR 

* OF THE PRINTER TABLE 

* PTRO 
* 

ADR EQU 

RTN EQU 1 

STS EOU 2 

OUT EQU 3 

ITR EQU 4 

SLT EQU 5 

NOS EQU 6 

PAD EQU 7 

WRT EQU 8 

PTR EQU 10 

SNR EOU 12 

KEY EQU 14 

SEE EQU 16 



30400020 
30400030 
30400040 
30400050 
30400060 
30400070 
30400080 
30400090 
30400100 
30400110 
30400120 
30400130 
30400140 
30400150 
30400160 
30400170 
30400180 
30400190 
30400200 
30400210 
30400220 
30400230 
30400240 
30400250 
30400260 
30400270 
30400280 
30400290 
30400300 
30400310 
30400320 
30400330 
30400340 
30400350 
30400360 
30400370 
30400380 
30400390 
30400400 
30400410 
30400420 
30400430 
30400440 
30400450 
30400460 
30400470 
30400480 
30400490 
30400500 
30400510 
30400520 
30400530 
30400540 
30400550 
30400560 
30400570 
30400580 
30400590 
30400600 
30400610 
30400620 
30400630 
30400640 
30400650 
30400660 
30400670 
30400680 
30400690 



0012 








ERR 

* 
* 


EQU 




18 




30400700 
30400710 
30400720 


0000 










ORG 




*£1500 




30400730 










********** 


*********************************** 


30400740 










* 






DIAGNOSTIC MONITOR * 


30400750 










* 








CONTROLLED * 


30400760 










* 






1130 


KEYBOARD PRINTER * 


30400770 










* 






FUNCTION TEST. * 


30400780 










********************************************* 


30400790 


05DC 





0304 




PID 


DC 




/0304 


PROGRAM ID NO 


30400800 


05DD 





0000 




RID 


DC 







ROUTINE NUMBER 


30400810 


05DE 


1 


0646 




RAD 


DC 




GO 


ROUTINE ADDRESS 


30400820 


05DF 





0000 




SWO 


DC 




/OOOO 


FCN - CONTROL 


30400830 


05E0 





0000 




SW1 


DC 







FCN 1 - RTN SELECTION 


30400840 


05E1 





0000 




SW2 


DC 






NOT USED 


30400850 


05E2 





0000 




SW3 


DC 






NOT USED 


30400860 


05E3 


1 


0646 






DC 




GO 


LOOP PROGRAM ADDRESS 


30400870 


05E4 


1 


0646 






DC 




GO 


INITIALIZE ADDR 


30400880 


05E5 





0000 




MLSCF 


DC 




*-* 


PROGRAM CONTROL FLD 


30400890 


05E6 





FFFF 




TERM 


DC 




/FFFF 


TERMINATOR 


30400900 










********************************************* 


30400910 










* 










30400920 










* 






PRINTER INTERRUPT ROUTINE 


30400930 










* 










30400940 










* 










30400950 










* 






THIS 


ROUTINE CHECKS THE 


30400960 










* 






INTERRUPT DSW FOR THE 


30400970 










* 






PROPER BITS. 


30400980 










* 










30400990 










* 






IF AN ERROR IS DETECTED 


30401000 










* 






THE 


ERROR IS SAVED IN THE 


30401010 










* 






PRINTER TABLE, PTRO, 


30401020 










* 






AND 


THE ERROR INDICATOR 


30401030 










* 






IS 


SET. 


30401040 










* 










30401050 










* 






THE 


ERROR WILL BE PRINTED 


30401060 










* 






WHEN THE PROGRAM RETURNS 


30401070 










* 






TO 


MAIN LINE. 


30401080 










* 










30401090 










* 










30401100 


05E7 





0000 




COMIN 


DC 




/OOOO 




30401110 


05E8 


1 


6700 


0A28 




LDX 


L3 


PTRO 




30401120 










* 


XIO 


3 


PTR 


SENSE - RESET DSW 


30401130 


05EA 


1 


D400 


063D 




STO 


L 


DSW IT 


SAVE DSW 


30401140 










********************************************* 


30401150 










* 










30401160 


05EC 





18DE 






RTE 




30 




30401170 


05ED 


1 


4C28 


0603 




BSC 


L 


KBDRQ,f.7 


BR IF KBD RQST INTRPT 


30401180 


05EF 





18D2 






RTE 




18 


PLACE DSW IN Q 


30401190 


05F0 





C302 






LD 


3 


STS 


FETCH PRINTER STATUS 


30401200 


05F1 


1 


9400 


07CF 




S 


L 


KFOOO 




30401210 


05F3 


1 


4C18 


062A 




BSC 


L 


KBDSV,£- 


BR IF S/B KBD SVC INT 


30401220 


05F5 





C302 






LD 


3 


STS 


FETCH PRINTER STATUS 


30401230 


05F6 


1 


9400 


0844 




S 


L 


KEOOO 




30401240 


05F8 


1 


4C28 


05FD 




BSC 


L 


C0MI3,£Z 


BR IF S/NB TYPR SVC INT 


30401250 


05FA 





4808 






BSC 




6 


SKIP IF NOT KBD RTN 


30401260 


05FB 





C040 






LD 




KAOOO 


SELECT KEYBOARD NEXT 


30401270 


05FC 





7021 




* 


MDX 




TYPSV 


CHECK TYPR SVC INT 


30401280 
30401290 


05FD 





C03E 




C0MI3 


LD 




KAOOO 


SELECT KEYBOARD NEXT 


30401300 


05FE 





D302 






STO 


3 


STS 




30401310 


05FF 





C03D 






LD 




DSW IT 


SAVE SPURRIOUS INT ERR 


30401320 


0600 


1 


E400 


0774 




AND 


L 


KCNSL 




30401330 


0602 





7033 




* 


MDX 




KEYER 

THE 
HAS 


USE OF THE KEYBOARD 
BEEN REQUESTED BY 


30401340 
30401350 
30401360 
30401370 
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* 






THE 


INTERRUPT REQUEST KEY 


30401380 










* 






WHILE THE CONSOLE SW WAS 


30401390 










* 






IN 


THE KEYBOARD POSITION 


30401400 










* 










30401410 


0603 





18C1 




KBDRO 


RTE 




1 




30401420 


0604 


1 


4C10 


060A 




BSC 


L 


KBD2,- 


BR IF DSW OK 


30401430 


0606 





18D1 






RTE 




17 




30401440 


0607 





C035 






LD 




DSWIT 




30401450 


0608 





E039 






AND 




KBEOO 




30401460 


0609 





702C 




* 

* 


MDX 




KEYER 




30401470 
30401480 
30401490 


060A 





C031 




KBD2 


LD 




KAOOO 


SELECT KEYBOARD NEXT 


30401500 


060B 





D302 






STO 


3 


STS 




30401510 


060C 





0B10 




* 


XIO 


3 


SEE 


DESELECT KEYBOARD 


30401520 
30401530 


060D 





C033 






LD 




TWLVE 




30401540 


060E 





D301 




* 


STO 


3 


RTN 


SET RTN NUMBER 


30401550 
30401560 


060F 





63E7 






LDX 


3 


-25 


INITIALIZE KEYBOARD 


30401570 


0610 


1 


6F00 


07AC 




STX 


L3 


WRDCT61 


INPUT TABLE 


30401580 


0612 





6300 






LDX 


3 







30401590 


0613 


1 


6F00 


07CA 




STX 


L3 


SLTWD 




30401600 


061b 


1 


6F00 


085C 




STX 


L3 


ANY£3 




30401610 


0617 





1010 






SLA 




16 




30401620 


0618 


1 


D400 


0640 




STO 


L 


ERIND 




30401630 


061A 





6301 






LDX 


3 


1 




30401640 


061B 


1 


6F00 


085B 


* 


STX 


L3 


ANY62 




30401650 
30401660 


061D 





701B 




* 


MDX 




COMIX 


EXIT 


30401670 
30401680 


061E 





D302 




TYPSV 


STO 


3 


STS 


RESTORE PTR STS 


30401690 


061F 





C01D 






LD 




DSNIT 


CHECK TYPR RESP DSW 


30401700 


0620 


1 


E400 


0773 




AND 


L 


KEFFF 




30401710 


0622 





F01B 






EOR 




K8000 




30401720 


0623 


1 


4C18 


0639 




BSC 


L 


COMIX.C- 


BR IF DSW OK 


30401730 


0625 





C017 






LD 




DSWIT 


SAVE TYPR RESP DSW ERR 


30401740 


0626 


1 


E400 


0774 




AND 


L 


KCNSL 




30401750 


0628 





E815 






OR 




K8000 




30401760 


0629 





700C 




* 


MDX 




KEYER 




30401770 
30401780 


062A 





C014 




K8DSV 


LD 




KCOOO 


READ KEYBOARD NEXT 


30401790 


062B 





D302 






STO 


3 


STS 




30401800 


062C 





C010 






LD 




DSWIT 


CHECK KEYBOARD RESP 


30401810 


062D 





FOOD 






EOR 




K4200 


DSW 


30401820 


062E 


1 


E400 


0773 




AND 


L 


KEFFF 




30401830 


0630 


1 


4C18 


639 




BSC 


L 


COMIX, 6- 


BR IF DSW OK 


30401840 


0632 





COOA 






LD 




DSWIT 


SAVE KBD RESP DSW ERR 


30401850 


0633 


1 


E400 


0774 




AND 


L 


KCNSL 




30401860 


0635 





E805 






OR 




K4200 




30401870 


0636 





18D0 




KEYER 

* 


RTE 




16 




30401880 
30401890 


0637 





DB12 






STD 


3 


ERR 


SAVE DSW ERROR 


30401900 


0638 





6B07 




* 


STX 


3 


ERIND 


SET ERROR INDICATOR 


30401910 
30401920 


0639 


1 


4C80 


05E7 


COMIX 

* 


BSC 


I 


COMIN 


BUG - OUT OF INTRPT 


30401930 
30401940 


063B 





4200 




K4200 


DC 




/4200 


CONSTANTS 


30401950 


063C 





AOOO 




KAOOO 


DC 




/AOOO 




30401960 


063D 





0000 




DSWIT 


DC 




/OOOO 


INTRPT DSW STORAGE 


30401970 


063E 





8000 




K8000 


DC 




/8000 


PTR SVC INT DSW S/B 


30401980 


063F 





COOO 




KCOOO 


DC 




/COOO 




30401990 


0640 





0000 




ERIND 


DC 




/OOOO 


ERROR INDICATOR 


30402000 


0641 





OOOC 




TWLVE 


DC 




12 




30402010 


0642 





BEOO 




KBEOO 


DC 




/BEOO 




30402020 










****** ***************************** ******$* **> 


30402030 










* 










30402040 










********************************************* 


30402050 
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0643 4480 0160 
0645 1 05DC 



TYCUS BSI I BEGIN * SC 

DC PID * 

J********************************************* 

********************************************* 

* * 

* INITIAL PROGRAM ENTRY * 

* POINT * 

* * 

********************************************* 



0646 


1 


6C00 


0A81 


0648 


1 


6C00 


0A2A 


064A 





1010 




064B 


1 


D400 


085C 


064D 


1 


D400 


0640 


064F 


1 


D400 


05DD 


0651 


1 


C400 


05E0 


0653 





18C1 




0654 





4820 




0655 





1081 




0656 


1 


D400 


05E0 



GO 



STX 


LO 


FIRST 


STX 


LO 


PTROtSTS 


SLA 




16 


STO 


L 


ANY£3 


STO 


L 


ERIND 


STO 


L 


RID 


LD 


L 


SW1 


RTE 




1 


BSC 




Z 


SLT 




1 


STO 


L 


SW1 



SET TO PRINT SW STS 
RESET LOOP RTN 1 



0658 6500 FFFF 
065A 1 6D00 085B 



LDX LI -1 
STX LI ANY62 



065C 1 6700 


0A28 


* 
GO 3 


LDX 


L3 PTRO 


065E 1 C400 


0859 




LD 


L ANY 


0660 0304 






STO 


3 ITR 


0661 D305 






STO 


3 SLT 


0662 1801 






SRA 


1 


0663 D306 






STO 


3 NOS 


0664 D307 






STO 


3 PAD 



TERMINATE KBD INPUT 



INTR PTR STATUS TABL 



0665 63E7 

0666 1 6F00 07AC 

0668 6300 

0669 1 6F00 07CA 
066B 7000 



LDX 3 -25 INITIALIZE KEYBOARD 

STX L3 WRDCTE1 INPUT TABLE 
LDX 3 

STX L3 SLTWD 
MDX PRCON 

********************************************* 
********************************************* 

* 

ROUTINE CONTROLLER 



066C C0D3 
066D 1 4C20 075F 

066F 1 C400 05DD 

0671 90CF 

0672 1 4418 0A3F 

0674 1 6700 0A28 

0676 C302 

0677 D025 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

PRCON LD ERIND 

BSC L INERRtZ 

* 

LD L RID 
S TWLVE 
BSI L SWSET.e- 

* 

LDX L3 PTRO 
LD 3 STS 
STO RESTO 



THIS ROUTINE CONTROLS THE 
EXECUTION OF ALL PRINTER 
AND KEYBOARD ROUTINES. 

IF THIS ROUTINE TIMES OUT 
WHEN WAITING FOR AN 
INTERRUPT FROM THE PRINTER 
AN ERROR WILL BE PRINTED. 

THE SEQUENCING OF ROUTINES 
IS CONTROLLED BY THE MARK 
ROUTINE WHICH BUILDS THE 
CHARACTERS TO BE PRINTED. 



BR IF ERROR INDICATD 
FETCH ROUTINE NUMBER 
CHECK SWS IF KBD RTN 
FETCH PRINTER STATUS 
SAVE IT 



30402060 

30402070 

30402080 

30402090 

30402100 

30402110 

30402120 

30402130 

30402140 

30402150 

30402160 

30402170 

30402180 

30402190 

30402200 

30402210 

30402220 

30402230 

30402240 

30402250 

30402260 

30402270 

30402280 

30402290 

30402300 

30402310 

30402320 

30402330 

30402340 

30402350 

30402360 

30402370 

30402380 

30402390 

30402400 

30402410 

30402420 

30402430 

30402440 

30402450 

30402460 

30402470 

30402480 

30402490 

30402500 

30402510 

30402520 

30402530 

30402540 

30402550 

30402560 

30402570 

30402580 

30402590 

30402600 

30402610 

30402620 

30402630 

30402640 

30402650 

30402660 

30402670 

30402680 

30402690 

30402700 

30402710 

30402720 

30402730 
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0678 


1 


4C10 


068D 


* 
* 


BSC 


L 


EXEC3,- 


BR IF PTR SVC RQSTD 


30402740 
30402750 
30402760 
30402770 










* 






WHEN STS IS, 


30402780 










* 










30402790 










* 






ZERO-POS GO SERVICE PTR 


30402800 










* 






NEGATIVE, 


30402810 










* 






AOOO SELECT KBD 


30402820 










* 






COOO READ KBD NEXT 


30402830 










* 






FCOO-FFFE COUNT FOR INT 


30402840 










* 






FFFF LOST INT ERR 


30402850 










* 






EOOO WAIT TYPWR INT 


30402860 










* 






FOOO WAIT KBD INT 


30402870 










* 






8000 IGNORE 


30402880 










* 










30402890 


067A 





1001 






SLA 




1 




30402900 


067B 


1 


4C18 


0876 




BSC 


L 


TYEND,6- 


BR IF END PROGRAM 


30402910 


0670 





180C 






SRA 




12 




30402920 


067E 


1 


4C04 


0688 




BSC 


L 


SVCE 


BR IF WAIT KBD INT 


30402930 


0680 





1802 






SRA 




2 




30402940 


06B1 





901D 






S 




KOOOl 




30402950 


0682 


1 


4C18 


0781 




BSC 


L 


SELC2,6- 


BR IF SELECT KBD 


30402960 


0684 





901A 






S 




K0001 




30402970 


0685 


1 


4C18 


07A3 




BSC 


L 


KEYBD,6- 


BR IF READ KEYBD 


30402980 


0687 





700E 




* 


MDX 




EXEC9 


IGNORE OR WAIT 


30402990 
30403000 


0688 


1 


7401 


0A2A 


SVC 


MDX 


L 


PTROtSTS.l 


COUNT DOWN FOR INT 


30403010 


068A 





700B 






MDX 




EXEC9 


WAIT FOR INTRPT 


30403020 


068B 


1 


4C00 


0775 


* 


BSC 


L 


NOIN 


PRINT NO INTRPT ERROR 


30403030 
30403040 


068D 


1 


4400 


0A3F 


EXEC3 


BSI 


L 


SWSET 


CK CON/KBD SW SETTING 


30403050 


068F 





COOE 






LD 




KF800 


SERVICE PRINTER 


30403060 


0690 





D302 






STO 


3 


STS 


UPDATE PTR STATUS 


30403070 


0691 


1 


4C00 


0736 


$ 


BSC 


L 


READY 




30403080 
30403090 


0693 





C009 




EXEC7 


LD 




RESTO 


RESTORE TO TRY LATER 


30403100 


0694 


1 


D400 


0A2A 




STO 


L 


PTROSSTS 




30403110 


0696 


1 


6500 


066C 


EXEC9 


LDX 


LI 


PRCON 


TRY AGAIN - LATER 


30403120 


0698 


1 


6D00 


05E5 




STX 


LI 


MLSCF 




30403130 


069A 





4480 


0161 


* 


BSI 


I 


START 




30403140 
30403150 


069C 





0001 




I 


DC 




1 




30403160 


069D 





0000 




RESTO 


DC 




/oooo 




30403170 


069E 





F800 




KF800 


DC 




/F800 




30403180 


069F 





0001 




KOOOl 

* 


DC 




/0001 


CONSTANT 


30403190 
30403200 










*** * A*********************************** ***** 


30403210 










* 










30403220 










* 










30403230 










* 






THIS ROUTINE BUILDS THE 


30403240 










* 






NEXT 


CHARACTER TO BE 


30403250 










* 






PRINTED. THE CHARACTER 


30403260 










* 






IS FETCHED FROM THE 


30403270 










* 






PROPER ROUTINE TABLE OR 


30403280 










* 






IS TAKEN FROM THE BIT SW S . 


30403290 










* 










30403300 










* 






A ROUTINE WHICH IS RUNNING 


30403310 










* 






WILL 


NOT TERMINATE UNTIL 


30403320 










* 






IT HAS BEEN COMPLETED. 


30403330 










* 










30403340 


06A0 


1 


C400 


05E0 


MARK 


LD 


L 


SW1 




30403350 


06A2 





100C 






SLA 




12 




30403360 


06A3 





180C 






SRA 




12 




30403370 


06A4 


1 


9400 


084D 




S 


L 


ELVEN 


IS TYPE SWS ROUTINE 


30403380 


06A6 


1 


4C20 


06E3 


* 


BSC 


L 


MARKG,Z 


BR IF NO 


30403390 
30403400 


06A8 


1 


C400 


084D 




LD 


L 


ELVEN 


SET ROUTINE ID 


30403410 



DATE 
EC NO. 



02JAN66 

415490 



15N0V66 
419643 



15JUN67 

420317 



PROG ID 
PAGE 



0304-2 
3 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1131 KEYBOARD-PRINTER TEST 



PART NO. 2191240 
PAGE 3A 



06AA 


1 


D400 


05DD 




STO 


L 


RID 




30403420 


06AC 





6B09 






STX 


3 


MARKUS1 


SAVE IX 


30403430 


06AD 





C006 






LD 




MARKT 


SET MLSCF 


30403440 


06AE 


1 


D400 


05E5 




STO 


L 


MLSCF 


* 


30403450 


06B0 





6C00 


0165 




STX 


L 


RTNSW 


SET RTN SW 


30403460 


06B2 





4480 


0161 




BSI 


I 


START 


GO TO START 


30403470 


06B4 


1 


06B5 




MARKT 


DC 




MARKU 




30403480 


06B5 





6700 


0000 


MARKU 

* 


LDX 


L3 





RESTORE IX 


30403490 
30403500 


06B7 


1 


OCOO 


0A3C 




XIO 


L 


RDBS 


READ BIT SWITCHES 


30403510 


06B9 


1 


C400 


0A3E 




LD 


L 


BITSW 




30403520 


06BB 





6500 


0000 


MARK1 


LDX 


LI 


/OOOO 


FETCH SHIFT COUNT 


30403530 


06BD 





1100 






SLA 


1 







30403540 


06BE 





1808 






SRA 




8 




30403550 


06BF 





FODC 






EOR 




I 




30403560 


06CO 





4820 






BSC 




Z 


SKIP IF ILLEGAL CODE 


30403570 


06C1 





FODA 






EOR 




1 




30403580 


06C2 





1008 






SLA 




8 




30403590 


06C3 





D303 






STO 


3 


OUT 




30403600 


06C4 





C0F7 






LD 




MARK161 


RESET SHIFT COUNT 


30403610 


06C5 





4830 






BSC 




-Z 




30403620 


06C6 





6100 






LDX 


1 







30403630 


06C7 





4808 






BSC 




£ 




30403640 


06C8 





6108 






LDX 


1 


8 




30403650 


06C9 





69F2 






STX 


1 


MARK1G1 




30403660 


06CA 





70CB 




* 

* 


MDX 




EXEC9 




30403670 
30403680 
30403690 


06CB 


1 


4C00 


0876 


MARK2 

* 


BSC 


L 


TYEND 


END PROGRAM 


30403700 
30403710 


06CD 





7201 




MARK3 


MDX 


2 


1 




30403720 


06CE 


1 


6E00 


0A29 


MARK4 


STX 


L2 


PTROSRTN 




30403730 


06D0 


1 


D400 


05DD 


* 


STO 


L 


RID 


SAVE THE ROUTINE NO 


30403740 
30403750 


06D2 


1 


6E80 


06E6 


* 


STX 


12 


MARKLfil 




30403760 
30403770 


06D4 


1 


C680 


084D 




LD 


12 


FUNR-1 


FETCH ADRS OF TEST 


30403780 


06D6 





D304 




* 


STO 


3 


ITR 




30403790 
30403800 


06D7 





1810 






SRA 




16 


RESTORE WORDS PT 


30403810 


06D8 





D307 




* 


STO 


3 


PAD 




30403820 
30403830 


06D9 


1 


C600 


084D 


MARK5 


LD 


L2 


FUNR-1 


RESTORE TEST PT 


30403840 


06DB 


1 


4C28 


06CB 


* 


BSC 


L 


MARK2,Z£ 


BR IF PTR FINISHED 


30403850 
30403860 


06DD 





8307 






A 


3 


PAD 




30403870 


06DE 





D300 




* 


STO 


3 


ADR 




30403880 
30403890 


06DF 





1810 






SRA 




16 


RESTORE WORDS PRTD 


30403900 


06E0 





D306 




* 


STO 


3 


NOS 




30403910 
30403920 


06E1 





COBA 






LD 




I 


RESTORE SHIFT WORD 


30403930 


06E2 





D305 




* 


STO 


3 


SLT 




30403940 
30403950 


06E3 


1 


6580 


0A28 


MARKG 


LDX 


11 


PTR06ADR 




30403960 


06E5 


1 


6680 


0A29 


MARKL 


LDX 


12 


PTROtRTN 




30403970 


06E7 





6916 






STX 


1 


MARKP61 


SAVE IXING 


30403980 


06E8 





6A17 






STX 


2 


MARKQC1 


* 


30403990 


06E9 





6B18 






STX 


3 


MARKR£1 


* 


30404000 


06EA 


1 


C400 


0A29 




LD 


L 


PTROSRTN 


GET RTN 


30404010 


06EC 


1 


F400 


05DD 




EOR 


L 


RID 


HAS IT CHANGED 


30404020 


06EE 


1 


4C18 


06FD 




BSC 


L 


MARKP.6- 


NO 


30404030 


06F0 


1 


C400 


0A29 




LD 


L 


PTROERTN 


SET RTN 


30404040 


06F2 


1 


0400 


05DD 




STO 


L 


RID 


* 


30404050 


06F4 





6C00 


0165 




STX 


L 


RTNSW 


SET SWITCH 


30404060 


06F6 


1 


C400 


06FC 




LD 


L 


MARKZ 


SET MLSCF 


30404070 


06F8 


1 


D400 


05E5 




STO 


L 


MLSCF 


* 


30404080 


06FA 





4480 


0161 




BSI 


I 


START 


GO TO START 


30404090 



DATE 


02JAN66 


15N0V66 


15JUN67 


EC NO. 


415490 


419643 


420317 



PROG ID 
PAGE 



0304-2 

3A 
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4 
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PART NO. 
PAGE 



2191240 
4A 



06FC 1 06FD 

06FD 6500 0000 

06FF 6600 0000 

0701 6700 0000 

0703 C305 

0704 8097 

0705 D305 

0706 1 4C04 070A 

0708 C101 

0709 7008 

070A C306 

070B 8090 

070C D306 

070D 7101 

070E 1 6D80 06E4 

0710 C100 

0711 1008 

0712 D303 

0713 F05C 

0714 1 4C20 0696 

0716 C304 

0717 1 9400 069C 

0719 D304 
071A 1 4C20 06D9 

071C C306 

071D 1 8400 069C 

071F 0306 

0720 8307 

0721 D307 

0722 C101 

0723 D304 

0724 1 F400 05E6 
0726 1 4C20 06D9 
0728 1 C400 05E0 
072A EOOA 
072B 1 4C18 06CD 

072D D004 

072E 9005 

072F 1 4C30 06CD 

0731 6600 0001 

0733 709A 



0734 OOOA 

0735 OOOF 



MARKZ 


DC 




MARKP 


MARKP 


LDX 


LI 





MARKO 


LDX 


L2 





MARKR 


LDX 


L3 





* 










LD 


3 


SLT 




A 




I 




STO 


3 


SLT 




BSC 


L 


MARKS, E 




LD 


1 


1 




MDX 




MARKN 


* 








MARKS 


LD 


3 


NOS 




A 




I 




STO 


3 


NOS 


* 










MDX 


1 


1 




STX 


11 


MARKGS1 




LD 


1 







SLA 




8 


* 








MARKN 


STO 


3 


OUT 


* 










EOR 




KFFOO 




BSC 


L 


EXEC9.Z 


* 










LD 


3 


ITR 




S 


L 


I 




STO 


3 


ITR 




BSC 


L 


MARK5.Z 


* 










LD 


3 


NOS 




A 


L 


I 




STO 


3 


NOS 




A 


3 


PAD 


£ 


STO 


3 


PAD 




LD 


1 


1 




STO 


3 


ITR 




EOR 


L 


TERM 




BSC 


L 


MARK5,Z 




LD 


L 


SW1 




AND 




BASIC 


* 


BSC 


L 


MARK3,£- 




STO 




MARKES1 




S 




ALL 




BSC 


L 


MARK3.-Z 


MARKE 


LDX 


L2 


1 




MDX 




MARK4 



RESTORE IXING 

* 

* 

BUMP SFF WT BY ONE 



SHIFT IF ODD 
FETCH OUTPUT WORD 



BUMP WORDS BY ONE 



FETCH OUTPUT CHAR 
SHIFT IT 

SAVE NEXT OUTPUT WD 



BR IF NOT END OF FCN 
DECREMENT ITCNT 

BR IF NO DO AGAIN 
UPDATE MODIFIER WORD 



FETCH NEXT REPEAT CT 



BR IF NOT END OF RTN 

ASSURE PROPER ENTRY 
BR IF NO RTN SELECT 



BR IF RTN TOO LARGE 



* 
* 
* 

ALL DC FUND-FUNR ALL TYPEWRITER RTNS 
BASIC DC /OOOF 

************************************#**$$#*£«, 



THIS ROUTINE CHECKS IF THE 
PRINTER CAN BE USED AND 
IF THE PRINTER IS READY. 

WHEN LOGBY INDICATES THAT 
THE PRINTER IS LOGICALLY 



30404100 
30404110 
30404120 
30404130 
30404140 
30404150 
30404160 
30404170 
30404180 
30404190 
30404200 
30404210 
30404220 
30404230 
30404240 
30404250 
30404260 
30404270 
30404280 
30404290 
30404300 
30404310 
30404320 
30404330 
30404340 
30404350 
30404360 
30404370 
30404380 
30404390 
30404400 
30404410 
30404420 
30404430 
30404440 
30404450 
30404460 
30404470 
30404480 
30404490 
30404500 
30404510 
30404520 
30404530 
30404540 
30404550 
30404560 
30404570 
30404580 
30404590 
30404600 
30404610 
30404620 
30404630 
30404640 
30404650 
30404660 
30404670 
304046 80 
30404690 
30404700 
30404710 
30404720 
30404730 
30404740 
30404750 
30404760 
30404770 



NOT BUSY, THE DSW IS 
CHECKED FOR READY. 



0736 C480 0167 

0738 1 4C20 074C 

073A 1 6500 05E7 

073C 6D00 01BB 

073E 1 6700 0A28 
0740 10A0 



0741 





OBOA 




0742 





D02C 




0743 





E02F 




0744 


1 


4C18 


0750 


0746 





C828 




0747 





E02C 





0748 18D0 

0749 6101 
074A 1 4400 0833 
074C 1 6500 0736 
074E 1 4C00 0840 



READY LD 

BSC 
* 

LDX 
STX 
LDX 
SLT 

XIO 
STO 
AND 
BSC 
LDD 
AND 
RTE 



LDX 
BSI 
LDX 
BSC 



0750 0B08 

0751 OBOA 

0752 D01A 



0753 E01F 

0754 F019 

0755 1 4C18 06A0 



RDY2 

* 
* 

* 
* 

* 
* 
TYPIT 



XIO 
XIO 
STO 



0757 
0758 
0759 



C815 
E01B 
E814 



075A 18D0 
075B 6102 

1 




075C 
075E 



4400 0833 
70F6 



075F 10A0 
0760 1 0400 0640 

0762 1 CCOO 0A3A 

0764 6103 

0765 1 4400 0833 

0767 10AO 

0768 DB12 

0769 1 4C00 066C 



076C 0001 
076D 0000 
076E OCOO 



AND 

EOR 

BSYOK BSC 

LOO 
AND 

OR 

RTE 

LDX 

BSI 

MDX 

********** 

* 

* 

* 

INERR SLT 
STO 

* 

LDD 
LDX 
BSI 
SLT 
STO 
BSC 

********** 

* 

* 

BSS 

DSWBY DC 

KOCOO DC 



I LOGBY 
L RDY2.Z 

LI COMIN 

LI RQTY 

L3 PTRO 

32 

3 PTR 
DSWAS 
KEFFF 
L TYPIT, 6- 
OSWAS 
KCNSL 
16 

1 1 

L PRDSW 

LI READY 

L PDSWX 



BR IF NO TYPE NOW 
SET INT VECTOR 



SENSE - RESET DSW 
BR IF DSW OK 



ERROR - NOT READY 
PRINT THE ERROR MSG 



3 WRT 
3 PTR 
DSWBY 



PRINT ONE CHARACTER 

THIS ROUTINE PRINTS ONE 
CHARACTER ON THE CONSOLE 
PRINTER AND THEN CHECKS 
IF THE PRINTER BECAME 
BUSY-NOT READY BY THE 
OUTPUT COMMAND. 

PRINT CHARACTER 
SENSE - RESET DSW 



CHECK BUSY DSW 
KEFFF 
KOCOO 
L MARK,£- BR IF DSW OK 

DSWBY 
KCNSL 
KOCOO 
16 
1 2 
L PRDSW 
BSYOK 
**********************#***#***$* $#* 



PRINT THE ERROR MSG 



32 
ERIND 



PRINT INTERRUPT DSW ERROR 
RESET ERROR IND 



L ERR6PTR0 

1 3 
L PRDSW 
32 

3 ERR 
L PRCON 



FETCH THE ERROR MESG 
SET MSG ID - 3 
PRINT THE ERROR MSG 

RESET ERROR IND 
RETURN TO MAIN LINE 



*********************#****££$$*$:;,$$ 



E 1 

/oooo 

/OCOO 



LAST BUSY DSW 
BUSY DSW S/B 



30404780 
30404790 
30404800 
30404810 
30404820 
30404830 
30404840 
30404850 
30404860 
30404870 
30404880 
30404890 
30404900 
30404910 
30404920 
30404930 
30404940 
30404950 
30404960 
30404970 
30404980 
30404990 
30405000 
30405010 
30405020 
30405030 
30405040 
30405050 
30405060 
30405070 
30405080 
30405090 
30405100 
30405110 
30405120 
30405130 
30405140 
30405150 
30405160 
30405170 
30405180 
30405190 
30405200 
30405210 
30405220 
30405230 
30405240 
30405250 
30405260 
30405270 
30405280 
30405290 
30405300 
30405310 
30405320 
30405330 
30405340 
30405350 
30405360 
30405370 
30405380 
30405390 
30405400 
30405410 
30405420 
30405430 
30405440 
30405450 



DATE 
EC NO. 



02JAN66 
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15N0V66 
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15JUN67 
420317 



PROG ID 
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DATE 
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419643 
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PAGE 



0304-2 
4A 



BM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
131 KEYBOARD-PRINTER TEST 



PART NO. 2191240 
PAGE 5 



076F 





0000 




DSWAS 


DC 




/oooo 


LAST READY DSW 


30405460 


0770 





FFOO 




KFFOO 


DC 




/FFOO 


CONSTANT 


30405470 


0771 





0000 




DSWBS 


DC 




/OOOO 




30405480 


0772 





0200 




F0200 


DC 




/0200 




30405490 


0773 





EFFF 




KEFFF 


DC 




/EFFF 


MASK CONSOLE SW 


30405500 


0774 





1000 




KCNSL 


DC 




/1000 




30405510 










********************************************* 


30405520 










* 










30405530 










* 










30405540 










* 






PRINT 


NO INTERRUPT ERROR 


30405550 










* 










30405560 


0775 





OBOA 




NOIN 


XIO 


3 


PTR 


SENSE - RESET DSW 


30405570 


0776 





DOFA 






STO 




DSWBS 




30405580 


0777 





C8F9 






1DD 




DSWBS 




30405590 


0778 





EOFB 






AND 




KCNSL 




30405600 


0779 


1 


ECOO 


063E 




OR 


L 


K8000 




30405610 


077B 





18D0 






RTE 




16 




30405620 


077C 





6104 






LDX 


1 


4 


ERROR - 4 


30405630 


077D 


1 


4400 


0833 




BSI 


L 


PRDSW 


PRINT THE ERROR MSG 


30405640 


077F 


1 


4C00 


066C 




BSC 


L 


PRCON 




30405650 










********************************************* 


30405660 










* 










30405670 










* 






KEYBOARD TEST 


304056 80 










* 










30405690 










* 










30405700 










* 






SELECT KEYBOARD ROUTINE 


30405710 










* 










30405720 


0781 


1 


6600 


05E7 


SELC2 


LDX 


L2 


COMIN 


RESET INT XFR VECTOR 


30405730 


0783 





6E00 


01BC 




STX 


L2 


RQKB 


FOR KEYBOARD REQ 


30405740 


0785 





6E00 


01BD 


* 


STX 


L2 


SVKB 


AND SVC KEYBOARD 


30405750 
30405760 


0787 





OBOA 






XIO 


3 


PTR 


SENSE AND SAVE DSW 


30405770 


0788 





D0E6 




* 


STO 




DSWAS 




30405780 
30405790 


0789 





C045 






LD 




KFOOO 


RESET PTR STATUS 


30405800 


078A 





D302 






STO 


3 


STS 




30405810 


078B 





C8E3 






LDD 




DSWAS 




30405820 


078C 





E0E6 






AND 




KEFFF 




30405830 


078D 


1 


4C18 


0793 




BSC 


L 


SELCtE- 


BR IF DSW OK 


30405840 


078F 





CODF 






LD 




DSWAS 




30405850 


0790 





E0E3 






AND 




KCNSL 




30405860 


0791 





6101 






LDX 


1 


1 


ERROR - 1 


30405870 


0792 





700B 




* 


MDX 




SELC1 


PRINT DSW ERROR 


30405880 
30405890 


0793 





OBOE 




SELC 


XIO 


3 


KEY 


SELECT KEYBOARD 


30405900 


0794 





OBOA 






XIO 


3 


PTR 


SENSE - RESET DSW 


30405910 


0795 





DODB 






STO 




DSWBS 




30405920 


0796 





FODB 






EOR 




F0200 




30405930 


0797 





EODB 






AND 




KEFFF 




30405940 


0798 


1 


4C18 


066C 


* 


BSC 


L 


PRCON, 6- 


BR IF DSW OK 


30405950 
30405960 


079A 





C8D6 






LDD 




DSWBS 


PRINT DSW ERROR 


30405970 


079B 





E0D8 






AND 




KCNSL 




30405980 


079C 





E8D5 






OR 




F0200 




30405990 


079D 





6106 




* 


LDX 


1 


6 


ERROR - 6 


30406000 
30406010 


079E 





18D0 




SELC1 


RTE 




16 




30406020 


079F 


1 


4400 


0833 




BSI 


L 


PRDSW 


PRINT THE ERROR MSG 


30406030 


07A1 


1 


6400 


0693 




LDX 


L 


EXEC7 


TRY AGAIN - LATER 


30406040 










************* 


******************************** 


30406050 










* 










30406060 










* 






DECODE CHARACTER KEYED IN 


30406070 










* 










30406080 










* 










30406090 


07A3 





0B10 




KEYBD 


XIO 


3 


SEE 


READ AND SAVE CHAR 


30406100 


07A4 





OBOA 






XIO 


3 


PTR 


SENSE - RESET DSW 


30406110 


07A5 





10A0 






SLT 




32 




30406120 


07A6 


1 


4C18 


07AB 




BSC 


L 


WRDCT.6- 




30406130 



DATE 
EC NO. 
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07BD 6201 
07BE 1 6E00 0847 

07C0 6105 
07C1 C30E 
07C2 1 4400 0833 
07C4 70BC 

07C5 6801 
07C6 70BA 



07C7 





0000 


07C8 





0002 


07C9 





0004 


07CA 





0000 


07CB 





FFE7 


07CC 





0000 


07CD 





1111 


07CE 





0008 


07CF 





FOOO 



07D0 1 C500 08FA 
0702 1 7400 07C7 
07D4 1808 
07D5 1008 
07D6 D303 

07D7 6100 
07D8 69EE 

07D9 1 7400 07CA 
07DB 7004 

07DC 6121 
07DD 7201 
07DE 7006 
07DF 7009 

07E0 6100 
07E1 1808 
07E2 7000 

07E3 1 EEOO 0874 



ERROR - 7 

PRINT DSW ERROR - 7 

LOOK UP CHAR IN TABLE 

BR IF CHAR MATCHES 



BR IF NO CAP NEXT 

BR IF ERASE LAST CHR 
SET MODIFIER WORD COUNT 



ERROR 5 

KB READ ERROR WORD 

PRINT THE ERROR MSG 



NOCP STX LOWER 
MDX SELC2 

*******************************************£!: 

* 



07A8 





6107 






LDX 


1 


7 


07A9 


1 


4400 


0833 


* 


BSI 


L 


PRDSW 


07AB 





6600 


0000 


WRDCT 


LDX 


LZ 


/OOOO 


07AD 





61BF 






LDX 


1 


-6 5 


07AE 


1 


C500 


08B9 


CNVRT 


LD 


LI 


KEC0DS65 


07B0 





F30E 






EOR 


3 


KEY 


07B1 


1 


4C18 


07D0 




BSC 


L 


CMPRE.6- 


07B3 





7101 






MDX 


1 


1 


07B4 





70F9 




* 


MDX 




CNVRT 


07B5 





C30E 




LD 


3 


KEY 


07B6 





F011 






EOR 




NCAP 


07B7 


1 


4C18 


07C5 


* 


BSC 


L 


NOCP,S- 


07B9 





COOF 




LD 




ERSLC 


07BA 





F30E 






EOR 


3 


KEY 


07BB 


1 


4C18 


07F9 




BSC 


L 


ERSE.fi- 



LDX 



2 1 



STX L2 EMESGS2 



LDX 


1 


5 


LD 


3 


KEY 


BSI 


L 


PRDSW 


MDX 




SELC2 



LOWER DC 
NCAP DC 
ERSLC DC 
SLTWD DC 
KFFE7 DC 
ERSEA DC 
BSPSE OC 
K0008 DC 
KFOOO DC 



/OOOO 

/0002 

/0004 

/OOOO 

-25 

/OOOO 

/llll 

/0008 

/FOOO 



# IF NEXT UPR CASE 
ERASE FIELD KEY CODE 
BACKSPACE KEY CODE 
KEYBOARD SHIFT WORD 



BACK SPACE 



********************************************* 
* 

PLACE CHAR KEYED IN 
OUTPUT TABLE 



* 

* 

* 

CMPRE LD 
MDX 
SRA 
SLA 
STO 

* 

LDX 
STX 

* 

MDX 
MDX 

* 

LDX 
MDX 
MDX 
MDX 

LDX 
SRA 
MDX 



* 
SFT 



TBLIZ OR 



LI TYC0D665 
L LOWER, 

8 

8 
3 OUT 

1 

1 LOWER 

L SLTWD,0 
SFT 

1 /21 

2 1 
TBLIS 
EXIT 

1 
8 
TBLIZ 

L2 ANYE27 



FETCH PRINTER CHAR 
SKIP IF UPPER CASE 



SAVE OUTPUT CHAR 
RESET LOWER CASE SW 



BR IF CHAR IS FIRST 
* TO BE PLACED IN WD 



SKIP IF TABLE COMPLT 



PLACE CHAR IN OUTPUT 



30406140 

30406150 

30406160 

30406170 

30406180 

30406190 

30406200 

30406210 

30406220 

30406230 

30406240 

30406250 

30406260 

30406270 

30406280 

30406290 

30406300 

30406310 

30406320 

30406330 

30406340 

30406350 

30406360 

30406370 

304063 80 

30406390 

30406400 

30406410 

30406420 

30406430 

30406440 

30406450 

30406460 

30406470 

30406480 

30406490 

30406500 

30406510 

30406520 

30406530 

30406540 

30406550 

30406560 

30406570 

30406580 

30406590 

30406600 

30406610 

30406620 

30406630 

30406640 

30406650 

30406660 

30406670 

30406680 

30406690 

30406700 

30406710 

30406720 

30406730 

30406740 

30406750 

30406760 

30406770 

30406780 

30406790 

30406800 

30406810 
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07E5 


1 


D600 


0874 


TBLIS 

* 


STO 


L2 


ANY627 


* TABLE 


30406820 
30406830 


07E7 





69E2 




TBLI 


STX 


1 


SLTWD 


SAVE TEST STATUS 


30406840 


07E8 





6AC3 






STX 


2 


WRDCTG1 




30406850 


07E9 


1 


C400 


0844 


EXIT 


LD 


L 


KEOOO 




30406860 


07EB 





D302 






STO 


3 


STS 


UPDATE PRTR STATUS 


30406870 


07EC 


1 


6500 


07E9 




LDX 


LI 


EXIT 




30406880 


07EE 





C480 


0167 




LD 


I 


LOGBY 




30406890 


07F0 


1 


4C20 


0840 




BSC 


L 


PDSWX.Z 




30406900 


07F2 


1 


6500 


05E7 




LDX 


LI 


COMIN 




30406910 


07F4 





6D00 


01BB 




STX 


LI 


RQTY 




30406920 


07F6 





0B08 






XIO 


3 


WRT 


PRINT ONE CHARACTER 


30406930 


07F7 


1 


4C00 


066C 




BSC 


L 


PRCON 


CONTINUE TILL INTRPT 


30406940 










********************************************* 


30406950 










* 










30406960 










* 






ERASE LAST CHARACTER 


30406970 










* 








KEYED IN 


30406980 










* 










30406990 


07F9 





6AD2 




ERSE 


STX 


2 


ERSEA 




30407000 


07FA 





C0D1 






LD 




ERSEA 




30407010 


07FB 





FOCF 






EOR 




KFFE7 




30407020 


07FC 


1 


4C18 


0781 


* 


BSC 


L 


SELC2,£- 


BR IF TABLE EMPTY 


30407030 
30407040 


07FE 





COCB 






LD 




SLTHD 




30407050 


07FF 


1 


4C20 


0809 




BSC 


L 


ERSE1.Z 


BR IF NOT SHIFTED 


30407060 


0801 





6121 






LDX 


1 


/0021 


ERASE SHIFTED CHAR 


30407070 


0802 


1 


C600 


0874 




LD 


L2 


ANY627 




30407080 


0804 





1808 






SRA 




8 




30407090 


0805 





1008 






SLA 




8 




30407100 


0806 


1 


D600 


0874 




STO 


L2 


ANYS27 




30407110 


0808 





7006 




* 


MDX 




ERSE2 




30407120 
30407130 


0809 





1010 




ERSE1 


SLA 




16 




30407140 


080A 





6100 






LDX 


1 







30407150 


080B 





72FF 






MDX 


2 


-1 




30407160 


080C 





1000 






NOP 








30407170 


080D 


1 


0600 


0875 




STO 


L2 


ANYC28 




30407180 


080F 





COBD 




ERSE2 


LD 




BSPSE 


SET BACKSPACE CODE 


30407190 


0810 





D303 






STO 


3 


OUT 


* IN OUTPUT WORD 


30407200 


0811 





70D5 






MDX 




TBLI 




30407210 










********************************************* 


30407220 










* 










30407230 










* 






TERMINATE MESSAGE ROUTINE 


30407240 










* 










30407250 


0812 





0000 




ENDM 


DC 




/OOOO 




30407260 


0813 





C048 






LD 




ANY£3 




30407270 


0814 


1 


6680 


07AC 




LDX 


12 


WRDCTC1 




30407280 


0816 


1 


4C18 


0829 




BSC 


L 


ENDM2,£- 


BR IF TABLE EMPTY 


30407290 


0818 





6102 






LDX 


1 


2 




30407300 


0819 





6941 






STX 


1 


ANY£2 




30407310 


081A 





COAF 






LD 




SLTWD 




30407320 


081B 


1 


4C18 


0821 




BSC 


L 


ENDM1,£- 


BR IF LAST SHIFTED 


30407330 


081D 


1 


EEOO 


0874 




OR 


L2 


ANYE27 




30407340 


081F 


1 


D600 


0874 


* 


STO 


L2 


ANYC27 




30407350 
30407360 


0821 


1 


C400 


0909 


ENDM1 


LD 


L 


RED1 


SET TABLE TERMINATOR 


30407370 


0823 


1 


D600 


0875 




STO 


L2 


ANYE28 




30407380 


0825 





C032 






LD 




FUND 




30407390 


0826 


1 


D600 


0876 




STO 


L2 


ANY£29 




30407400 


0828 





7002 




* 


MDX 




ENDM3 




30407410 
30407420 


0829 





C02E 




ENDM2 


LD 




FUND 


SET TABLE TERMINATOR 


30407430 


082A 





D030 




* 


STO 




ANYC2 




30407440 
30407450 


082B 





C0A2 




ENDM3 


LD 




K0008 


RESTORE PTR RTN 


30407460 


082C 


1 


D400 


0A2A 


* 


STO 


L 


STStPTRO 




30407470 
30407480 


082E 





6200 






LDX 


2 







30407490 
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082F 


1 


6E00 


05E0 


* 


STX 


L2 


SW1 




30407500 
30407510 


0831 


1 


4C80 


0812 




BSC 


I 


ENDM 


RETURN TO USER 


30407520 










************#***************#*##*#*£********* 


30407530 










* 










30407540 










* 






PRINT 


ERROR ROUTINE 


30407550 










* 










30407560 


0833 





0000 




PRDSW 


DC 




/OOOO 




30407570 


0834 





D815 




* 


STD 




EMESGS5 


SAVE DATA MESSAGE 


30407580 
30407590 


0835 





690F 




* 


STX 


1 


EMESG 


SAVE MESSAGE ID NO 


30407600 
30407610 










********************************************* 


30407620 


0836 





4480 


0162 




BSI 


I 


ERROR 


* 


30407630 


0838 


1 


0845 






DC 




EMESG 


MESSAGE ADDR * 


30407640 


0839 





0000 






DC 






LOOP ON ERR - NONE * 


30407650 










********************************************* 


30407660 


083A 





6303 






LDX 


3 


3 


RESET MODIFIER WORD CNT 


30407670 


083B 





6B0B 






STX 


3 


EMESG62 




30407680 


083C 


1 


6700 


OA28 




LDX 


L3 


PTRO 


RESTORE XR3 


30407690 


083E 


1 


4C80 


0833 


* 
* 


BSC 


I 


PRDSW 


RETURN TO USER 


30407700 
30407710 
30407720 


0840 


1 


6D00 


05E5 


PDSWX 


STX 


LI 


MLSCF 




30407730 


0842 





4480 


0161 


* 


BSI 


I 


START 




30407740 
30407750 


0844 




0000 






BSS 


E 






30407760 


0844 





EOOO 




KEOOO 


DC 




/EOOO 


ERROR ID 


30407770 


0845 





0000 




EMESG 


DC 




/OOOO 


MESSAGE ID NO 


30407780 


0846 





0000 






DC 




/OOOO 


HEX OUTPUT 


30407790 


0847 





0003 






DC 




/0003 


DATA ID WORD 


30407800 


0848 





0000 






DC 




/OOOO 


ALPHA ADDR 


30407810 


0849 





0000 






DC 




/OOOO 


ALPHA ADDR 


30407820 


084A 





0000 






DC 




/OOOO 


DSWAS 


30407830 


084B 





0000 




* 
* 


DC 




/OOOO 


DSW S/B 


30407840 
30407850 
30407860 


084C 





0000 




TIMEX 


DC 




/OOOO 


DELAY TIME STORAGE 


30407870 


084D 





OOOB 




ELVEN 


DC 




11 




30407880 










********************************************* 


30407890 










* 










30407900 










* 






PRINTER TEST SEQUENCE 


30407910 










* 








CONTROL TABLE 


30407920 










* 










30407930 


084E 


1 


0859 




FUNR 


DC 




ANY 


KEYBOARD OPTION 


30407940 


084F 


1 


08FA 






DC 




TACAR 


TAB £ CARRIER RETURN 


30407950 


0850 


1 


090B 






DC 




UCASE 


UPPER CASE CHARS 


30407960 


0851 


1 


0927 






DC 




LCASE 


LOWER CASE CHARS 


30407970 


0852 


1 


0943 






DC 




COLOR 


COLOR SHIFT ROUTINE 


30407980 


0853 


1 


0959 






DC 




SPNDX 


BACKSPACE AND INDEX 


30407990 


0854 


1 


0977 






DC 




AUCAR 


AUTO CARRIER RETURN 


30408000 


0855 


1 


0992 






DC 




ROCK 


TEST TILT 


30408010 


0856 


1 


09C4 






DC 




ROLL 


TEST ROTATE 


30408020 


0857 


1 


09F6 






DC 




TWIST 


TEST TILT AND ROTATE 


30408030 


0858 





FFFF 




FUND 


DC 




/FFFF 


* 


30408040 










********************************************* 


30408050 










* 










30408060 










* 






KEYBOARD OPTION TABLE 


30408070 










* 










30408080 


0859 





0001 




ANY 


DC 




1 


ITCNT 


30408090 


085A 





05FF 






DC 




/05FF 


BLACK 


30408100 


085B 





FFFF 






DC 




/FFFF 


ITCNT 


30408110 


085C 





0000 






DC 




/OOOO 




30408120 


085D 





0000 






DC 




/OOOO 




30408130 


085E 





0000 






DC 




/OOOO 




30408140 


085F 





0000 






DC 




/OOOO 




30408150 


0860 





0000 






DC 




/OOOO 




30408160 


0861 





0000 






DC 




/OOOO 




30408170 
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0862 
0863 
0864 
0865 
0866 
0867 
0868 
0869 
086A 
086B 
086C 
086D 
086E 
086F 
0870 
0871 
0872 
0873 
0874 
0875 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
FFFF 



DC 


/oooo 


DC 


/oooo 


DC 


/oooo 


DC 


/oooo 


DC 


/oooo 


DC 


/oooo 


DC 


/oooo 


DC 


/oooo 


DC 


/oooo 


DC 


/oooo 


DC 


/oooo 


DC 


/oooo 


DC 


/oooo 


DC 


/oooo 


DC 


/oooo 


DC 


/oooo 


DC 


/oooo 


DC 


/oooo 


DC 


/oooo 


DC 


/FFFF 


********************************************* 

* 


* 

* 


END PROGRAM ROUTINE 


* 





0876 4480 0164 



********************************************* 

TYEND BSI I END * 

********************************************* 

* 









* 

* 
* 


KEYBOARD CODE TABLE 


0878 





4220 


KECOD DC 


/4220 


* 


0879 





3000 


DC 


/3000 


/ 


087A 





2000 


DC 


/2000 





087B 





1000 


DC 


/1000 


1 


087C 





0800 


DC 


/0800 


2 


087D 





0400 


DC 


/0400 


3 


087E 





0200 


DC 


/0200 


4 


087F 





0100 


DC 


/0100 


5 


0860 





0080 


DC 


/OOBO 


6 


0881 





0040 


DC 


/0040 


7 


0882 





0020 


DC 


/0020 


8 


0883 





0010 


DC 


/0010 


9 


0884 





4420 


DC 


/4420 


$ 


0885 





8420 


DC 


/8420 


. 


0886 





2420 


DC 


/2420 


t 


0887 





OOAO 


DC 


/OOAO 


# 


0888 





0120 


DC 


/0120 


S 


0889 





8120 


DC 


/8120 


% 


088A 





4120 


DC 


/4120 


□ 


088B 





8OA0 


DC 


/8OA0 


e 


088C 





4000 


DC 


/4000 




088D 





8820 


DC 


/8820 


CENT SIGN 


088E 





8220 


DC 


/8220 


LESS THAN 


088F 





8060 


DC 


/8060 


LOGICAL OR 


0890 





8000 


DC 


/8000 


AND 


0891 





4820 


DC 


/4820 


EXCLAIMATION 


0892 





40A0 


DC 


/40A0 


SEMI COLON 


0893 





4060 


DC 


/4O60 


LOGICAL NOT 


0894 





2220 


DC 


/2220 


PER CENT 


0895 





2120 


DC 


/2120 


UNDERSCORE 


0896 





20AO 


DC 


/20AO 


GREATER THAN 


0897 





2060 


DC 


/2060 


QUESTION MARK 


0898 





0820 


DC 


/0820 


COLON 


0899 





0420 


DC 


/0420 


NUMBERS 


089A 





0220 


DC 


/0220 


AT 


089B 





0060 


DC 


/0060 


QUOTE 



30408180 

30408190 

30408200 

30408210 

30408220 

30408230 

30408240 

30408250 

30408260 

30408270 

30408280 

30408290 

30408300 

30408310 

30408320 

30408330 

30408340 

30408350 

30408360 

30408370 

30408380 

30408390 

30408400 

30408410 

30408420 

30408430 

30408440 

30408450 

30408460 

30408470 

30408480 

30408490 

30408500 

30408510 

30408520 

30408530 

30408540 

30408550 

30408560 

30408570 

30408580 

30408590 

30408600 

30408610 

30408620 

30408630 

30408640 

30408650 

30408660 

30408670 

30408680 

30408690 

30408700 

30408710 

30408720 

30408730 

30408740 

30408750 

30408760 

30408770 

30408780 

30408790 

30408800 

30408810 

30408820 

30408830 

30408840 

30408850 



089C 


9000 


DC 


/9000 


A 


089D 


8800 


DC 


/8800 


B 


089E 


8400 


DC 


/8400 


C 


089F 


8200 


DC 


/8200 


D 


08A0 


8100 


DC 


/8100 


E 


08A1 


8080 


DC 


/8080 


F 


08A2 


8040 


DC 


/8040 


G 


08A3 


8020 


DC 


/8020 


H 


08A4 


8010 


DC 


/8010 


I 


08A5 


5000 


DC 


/5000 


J 


08A6 


4800 


DC 


/4800 


K 


08A7 


4400 


DC 


/4400 


L 


08A8 


4200 


DC 


/4200 


M 


08A9 


4100 


DC 


/4100 


N 


08AA 


4080 


DC 


/4080 





08AB 


4040 


DC 


/4040 


P 


08AC 


4020 


DC 


/4020 


Q 


08AD 


4010 


DC 


/4010 


R 


08AE 


2800 


DC 


/2800 


S 


08AF 


2400 


DC 


/2400 


T 


08B0 


2200 


DC 


/2200 


U 


08B1 


2100 


DC 


/2100 


V 


08B2 


2080 


DC 


/2080 


w 


08B3 


2040 


DC 


/2040 


X 


08B4 


2020 


DC 


/2020 


Y 


08B5 


2010 


DC 


/2010 


z 


0886 


OOOO 


DC 


/OOOO 


SPACE 


08B7 


2820 


DC 


/2820 


0-8-2 


08B8 


0008 


DC 

* 


/0008 


EOF 






* 


PRINTER CODE TABLE 


08B9 


D6D6 


TYCOD DC 


/D6D6 


* 


08BA 


BCBC 


DC 


/BCBC 


/ 


08BB 


C4C4 


DC 


/C4C4 





08BC 


FCFC 


DC 


/FCFC 


1 


08B0 


D8D8 


DC 


/D8D8 


2 


08BE 


DCDC 


DC 


/DCDC 


3 


08BF 


FOFO 


DC 


/FOFO 


4 


08C0 


F4F4 


DC 


/F4F4 


5 


08C1 


DODO 


DC 


/DODO 


6 


08C2 


0404 


DC 


/D4D4 


7 


08C3 


E4E4 


DC 


/E4E4 


8 


08C4 


EOEO 


DC 


/EOEO 


9 


08C5 


4040 


DC 


/4040 


$ 


08C6 


OOOO 


DC 


/OOOO 




08C7 


8080 


DC 


/8080 


» 


08C8 


C2C2 


DC 


/C2C2 


# 


08C9 


E6E6 


DC 


/E6E6 


3 


08CA 


FEFE 


DC 


/FEFE 


% 


08CB 


F6F6 


DC 


/F6F6 


n 


08CC 


DADA 


DC 


/DADA 


& 


08CD 


8484 


DC 


/8484 


_ 


08CE 


0202 


DC 


/0202 


CENTS SIGN 


08CF 


DEDE 


DC 


/DEDE 


LESS THAN 


08D0 


C6C6 


DC 


/C6C6 


LOGICAL OR 


08D1 


4444 


DC 


/4444 


AND 


08D2 


4242 
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09CF A484 


DC 


/A484 


Y 


_ 


0900 98B0 


DC 


/98B0 


S 


u 


09D1 90A0 


DC 


/90A0 


W 


2 


09D2 8040 


DC 


/8040 


» 


$ 


09D3 6050 


DC 


/6050 


R 





09D4 7058 


DC 


/7058 


M 


K 


09D5 4464 


DC 


/4464 


ANO 


Q 


09D6 5474 


DC 


/5474 


P 


N 


09D7 5C7C 


DC 


/5C7C 


L 


J 


09D8 3C1C 


DC 


/3C1C 


A 


C 


09D9 3414 


DC 


/3414 


E 


G 


09DA 2404 


DC 


/2404 


H 


AT 


09DB 1830 


DC 


/1830 


B 


D 


09DC 1020 


DC 


/1020 


F 


I 


09DD 0021 


DC 


/0021 


• 




09DE 3E1E 


OC 


/3E1E 


A 


C 


09DF 3616 


DC 


/3616 


E 


G 


09E0 2606 


DC 


/2606 


H 


PCT 


09E1 1A32 


DC 


/1A32 


B 


D 


09E2 1222 


DC 


/1222 


F 


I 


09E3 0242 


DC 


/0242 


CNT 


EXC 


09E4 6252 


DC 


/6252 


R 





09E5 725A 


DC 


/725A 


M 


K 


09E6 4666 


DC 


/4666 


GTR 


Q 


09E7 5676 


DC 


/5676 


P 


N 


09E8 5E7E 


DC 


/5E7E 


L 


J 


09E9 BE9E 


DC 


/BE9E 


UDR 


T 


09EA B696 


DC 


/B696 


V 


X 


09EB A686 


DC 


/A686 


Y 


QSN 


09EC 9AB2 


DC 


/9AB2 


S 


U 


09ED 92A2 


DC 


/92A2 


W 


Z 


09EE 82C2 


DC 


/82C2 


CLN 


* 


09EF E2D2 


DC 


/E2D2 


QTE 


SMI 


09F0 F2DA 


DC 


/F2DA 


LNT 


& 


09F1 C6E6 


DC 


/C6E6 


LOR 


a 


09F2 D6F6 


DC 


/D6F6 


* 


□ 


09F3 DEFE 


DC 


/DEFE 


LES 


z 


09F4 29FF 


DC 


/29FF 


RED 




09F5 FFFF 


DC 

* 


/FFFF 






09F6 0001 


* 

TWIST DC 


1 


ITCNT 


09F7 85FF 


DC 


/85FF 


BLACK 


09F8 0002 


DC 


2 


ITCNT 


09F9 81C0 


DC 


/81C0 


CR 


NOS 


09FA 3E80 


DC 


/3E80 


A 


» 


09FB 7E40 


DC 


/7E40 


J 


i 


09FC BEOO 


DC 


/BEOO 


UDR 


• 


09FD FE20 


DC 


/FE20 


% 


I 


09FE DE60 


DC 


/DE60 


LES 


R 


09FF 9EA0 


DC 


/9EA0 


T 


Z 


OAOO 5EE0 


DC 


/5EE0 


L 


9 


0A01 1ED0 


DC 


/1ED0 


C 


6 


0A02 3690 


DC 


/3690 


E 


M 


0A03 7650 


DC 


/7650 


N 





0A04 B610 


DC 


/B610 


V 


F 


0A05 F630 


DC 


/F630 


a 


D 


0A06 D670 


DC 


/D670 


* 


M 


0A07 96B0 


DC 


/96B0 


X 


U 


0A08 56F0 


DC 


/56F0 


P 


4 


0A09 16D8 


DC 


/16D8 


G 


2 


OAOA 2698 


DC 


/2698 


H 


S 


OAOB 6658 


DC 


/6658 


Q 


K 


OAOC A618 


DC 


/A618 


Y 


B 


OAOD E604 


DC 


/E604 


a 


AT 


OAOE C644 


DC 


/C644 


LOR 


AND 


OAOF 8684 


DC 


/8684 


QSN 


_ 


0A10 46C4 


DC 


/46C4 


GTR 






30412260 

30412270 

30412280 

30412290 

30412300 

30412310 

30412320 

30412330 

30412340 

30412350 

30412360 

30412370 

30412380 

30412390 

30412400 

30412410 

30412420 

30412430 

30412440 

30412450 

30412460 

30412470 

30412480 

30412490 

30412500 

30412510 

30412520 

30412530 

30412540 

30412550 

30412560 

30412570 

30412580 

30412590 

30412600 

30412610 

30412620 

30412630 

30412640 

30412650 

30412660 

30412670 

30412680 

30412690 

30412700 

30412710 

30412720 

30412730 

30412740 

30412750 

30412760 

30412770 

30412780 

30412790 

30412800 

30412810 

30412820 

30412830 

30412840 

30412850 

30412860 

30412870 

30412880 

30412890 

30412900 

30412910 

30412920 

30412930 



0A11 





06E4 




DC 


/06E4 




PCT 8 




30412940 


0A12 





1AA4 




DC 


/1AA4 




B Y 




30412950 


0A13 





5A64 




DC 


/5A64 




k g 




30412960 


0A14 





9A24 




DC 


/9A24 




S H 




30412970 


0A15 





DA14 




DC 


/DA14 




e g 




30412980 


0A16 





F254 




DC 


/F254 




LNT P 




30412990 


0A17 





B294 




DC 


/B294 




U X 




30413000 


0A18 





72D4 




DC 


/72D4 




M 7 




30413010 


0A19 





32F4 




DC 


/32F4 




D 5 




30413020 


0A1A 





12B4 




DC 


/12B4 




F V 




30413030 


0A1B 





5274 




DC 


/5274 




N 




30413040 


0A1C 





9234 




DC 


/9234 




W E 




30413050 


0A1D 





D21C 




DC 


/D21C 




SMI C 




30413060 


0A1E 





E25C 




DC 


/E25C 




QTE L 




30413070 


0A1F 





A29C 




DC 


/A29C 




Z T 




30413080 


0A2O 





62DC 




DC 


/62DC 




R 3 




30413090 


0A21 





22FC 




DC 


/22FC 




I 1 




30413100 


0A22 





02BC 




DC 


/02BC 




CNT / 




30413110 


0A23 





427C 




DC 


/427C 




EXC J 




30413120 


0A24 





823C 




DC 


/82 3C 




CLN A 




30413130 


0A25 





C225 




DC 


/C225 




% BLACK 




30413140 


0A26 





29FF 




DC 


/29FF 




RED 




30413150 


0A27 





FFFF 




DC 


/FFFF 








30413160 








****************♦********************#**>!=*«*#* 


30413170 








********************** *******$***$* * *£**!(!*### 




30413180 








* 












30413190 








* 






PRINTER OUTPUT STATUS 




30413200 








* 








TABLES 




30413210 








* 






PRINTER NO 




30413220 


0A28 




0000 




BSS 


E 






LABEL 


30413230 


0A28 


1 


08FA 


PTRO 


DC 


TACAR 




WORD POINTER 


ADR 


30413240 


0A29 





0002 




DC 


2 




TEST POINTER 


RTN 


30413250 


0A2A 





8000 


* 
* 


DC 


/8000 
/AOOO 
/COOO 




PTR STATUS 
SELECT KBD 
READ KBD NEXT 


STS 


30413260 
30413270 
30413280 








* 




/FCOO- 


•FFFE COUNT FOR INTERRUPT 




30413290 








* 




/FFFF 




LOST INT ERROR 




30413300 








* 




/EOOO 




WAIT TYP READ INTERT 




30413310 








* 




/FOOO 




WAIT KBD INT 




30413320 








* 




/8000 




IGNORE 




30413330 


0A2B 





81FF 




DC 


/81FF 




NEXT PTR OUTPUT WORD 


OUT 


30413340 


0A2C 





0001 




DC 


1 




ITERATION COUNT 


1TR 


30413350 


0A20 





0001 




DC 


1 




SHIFT WORD 


SLT 


30413360 


0A2E 





0000 




DC 






WORDS PRINTED 


NOS 


30413370 


0A2F 





0000 




DC 






LAST ITCNT AODR PT 


PAD 


30413380 


0A30 


1 


0A2B 




DC 


PTR060UT 




WRT 


30413390 


0A31 





0900 




DC 


/0900 




WRITE COMMAND 




30413400 


0A32 





0000 




DC 









PTR 


30413410 


0A33 





0F01 




DC 


/0F01 




SENSE DSW COMMAND 




30413420 


0A34 





0000 




DC 






SENSE - NO RESET 


SNR 


30413430 


0A35 





OFOO 




DC 


/OFOO 








30413440 


0A36 





0000 




DC 








KEY 


30413450 


0A37 





ocoo 




DC 


/OCOO 




SELECT KEYBOARD CMD 




30413460 


0A38 


1 


0A36 


» 


DC 


PTROCKEY 




SEE 


30413470 


0A39 





OAOO 




DC 


/OAOO 




READ KEYBOARD CMD 




30413480 


0A3A 





0000 




DC 


/OOOO 




ERROR DSW WAS 


ERR 


30413490 


0A3B 





0000 




DC 


/OOOO 




DSW SHOULD HAVE BEEN 




30413500 


0A3C 


1 


0A3E 


ROBS 


DC 


BITSW 








30413510 


0A3D 





3A0O 




DC 


/3A00 








30413520 


0A3E 





0000 


BITSW 

* 

* 


DC 


/OOOO 








30413530 
30413540 
30413550 








* 




KEYBOARD 


- CONSOLE SWITCH 




30413560 








* 




STATUS ROUTINE 




30413570 








* 












30413580 








* 




THIS 


ROUTINE PRINTS ANY 




30413590 








* 




i 


CHANGE IN THE STATUS OF 




30413600 








* 




1 


OF 


THE CONSOLE/KEYBOARD 




30413610 
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* 






SWITCH. IF NO CHANGE 


30413620 






* 






IS 


MADE THEN NOTHING IS 


30413630 






* 






PRINTED. 


30413640 






* 










30413650 


0A3F 0000 




SWSET 


DC 








30413660 


0A40 08F3 






XIO 




SNR&PTRO 


SENSE DEVICE STATUS 


30413670 


0A41 F03E 






EOR 




LAST 


CHECK SWITCH SETTING 


30413680 


0A42 1 E400 


0A82 




AND 


L 


K.1000 




30413690 


0A44 E83C 






OR 




FIRST 




30413700 


0A45 1 4C98 


0A3F 


* 


BSC 


I 


SWSET, 6- 


RETURN IF NOT CNGED 


30413710 
30413720 


0A47 08EC 






XIO 




SNRSPTRO 


SENSE DEVICE STATUS 


30413730 


0A48 1 E400 


0A82 




AND 


L 


K1000 




30413740 


0A4A D035 






STO 




LAST 




30413750 


0A4B 1 4C20 


0A58 


* 


BSC 


L 


SW SC , Z 


BR IF IN CONSOLE 


30413760 
30413770 


0A4D 1 C400 


0641 




LD 


L 


TWLVE 


SET ROUTINE NO. 


30413780 


0A4F 1 D400 


05DD 


* 


STO 


L 


RID 




30413790 
30413800 


0A51 1010 






SLA 




16 




30413810 


0A52 1 0400 


085C 


* 


STO 


L 


ANY63 




30413820 
30413830 


0A54 6500 


AOOO 




LDX 


LI 


/AOOO 


SET TO SELECT KBD NEXT 


30413840 


0A56 C02C 






LD 




KBMES 


KEYBOARD MESSAGE 


30413850 


0A57 701A 




* 


MDX 




SWSP 


GO PRINT THE SWS 


30413860 
30413870 


0A58 1 4400 


0812 


swsc 


BSI 


L 


ENDM 


TERMINATE KBD ENTRY 


30413880 


0A5A 1810 






SRA 




16 




30413890 


0A5B 1 C400 


05E0 




LD 


L 


SW1 




30413900 


0A5D 18C1 






RTE 




1 




30413910 


0A5E 4820 






BSC 




Z 




30413920 


0A5F 1081 






SLT 




1 




30413930 


0A60 D001 






STO 




*£1 




30413940 


0A61 6500 


0000 




LDX 


LI 


/OOOO 




30413950 


0A63 1 C400 


085B 




LD 


L 


ANY£2 


CHECK IF ANY KBD ENTRY 


30413960 


0A65 4810 






BSC 




- 


BR IF TABLE EMPTY 


30413970 


0A66 6101 






LDX 


1 


1 


SET TO LOOP RTN 1 


30413980 


0A67 69C1 




SWSD 


STX 


1 


RTNtPTRO 




30413990 


0A68 1 C500 


084E 




LD 


LI 


FUNR 




30414000 


0A6A DOBD 






STO 




ADR6PTR0 




30414010 


0A6B 1 C400 


085A 




LD 


L 


ANYS1 




30414020 


0A6D DOBD 




* 


STO 




OUTSPTRO 




30414030 
30414040 


0A6E 1 6D00 


05E0 


SWSE 


STX 


LI 


SW1 


SET OR CLEAR LOOP RTN 


30414050 


0A70 08C7 




* 


XIO 




SEE6PTR0 


DESELECT KEYBOARD 


30414060 
30414070 


0A71 C018 




* 


LD 




CNMES 


CONSOLE MESSAGE 


30414080 
30414090 


0A72 DOOC 




SWSP 


STO 




L0GM64 


SAVE MESSAGE 


30414100 


0A73 69B6 






STX 


1 


STSSPTRO 


SET PRINTER STATUS 


30414110 


0A74 1010 






SLA 




16 




30414120 


0A75 DOOB 






STO 




FIRST 


RESET FIRST INDICATOR 


30414130 






********************************************* 


30414140 


0A76 4480 


0163 




BSI 


I 


LOG 


* 


30414150 


0A78 1 0A7B 






DC 




LOGM 


ADRS OF MESS * 


30414160 






********************************************* 


30414170 


0A79 1 4C0O 


065C 


* 


BSC 


L 


G03 


RETURN TO MAINLINE 


30414180 
30414190 


0A7B 0000 




LOGM 


DC 




/OOOO 




30414200 


0A7C 0000 






DC 




/OOOO 




30414210 


0A7D 0000 






DC 




/OOOO 




30414220 


0A7E 0000 






DC 




/OOOO 




30414230 


0A7F 0000 




* 
# 


DC 




/OOOO 




30414240 
30414250 
30414260 


0A80 0000 




LAST 


DC 




/OOOO 


LAST KBD/CNSL SW SET 


30414270 


0A81 1 0A81 




FIRST 


DC 




FIRST 


PROG RESRT INDICATOR 


30414280 


0A82 1000 




K1000 


DC 




/1000 
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0A83 


1 


0A84 


KBMES 


DC 


KBMES61 




0A84 





5A36 




DC 


/5A36 


KEYBOARD 


0A85 





A61A 




DC 


/A61A 




0A86 





523E 




DC 


/523E 




0A87 





6232 




DC 


/6232 




OA88 





8100 




DC 


/8100 




0A89 





FFFF 


* 
CNMES 


DC 


/FFFF 


TERMINATOR 


0A8A 


1 


0A8B 


DC 


CNMES&l 




0A8B 





1E52 




DC 


/1E52 


CONSOLE 


0A8C 





769A 




DC 


/769A 




0A8D 





525E 




DC 


/525E 




0A8E 





3600 




DC 


/3600 




0A8F 





FFFF 




DC 


/FFFF 


TERMINATOR 



0A90 



0643 



********************************************* 
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C R 
NAME 
ADR 
ALL 

ANY 

AUCAR 

BASIC 

BEGIN 

BITSW 

BSPSE 

BSYOK 

CMPRE 

CNMES 

CNVRT 

COLOR 

COM IN 

COMIX 

COM 1 3 

DSWAS 

DSWBS 

DSWBY 

DSWIT 

ELVEN 

EMESG 

END 

ENDM 

ENDM1 

ENDM2 

ENDM3 

ERIND 

ERLCK 

ERR 

ERROR 

ERSE 

ERSEA 

ERSE1 

ERSE2 

ERSLC 

EXEC3 

EXEC7 

EXEC9 

EXIT 

FIRST 

FUND 

FUNR 

F0200 

GO 

GO 3 

I 

ILO 

IL1 

IL2 

IL3 

IL4 

INERR 

ITR 

KAOOO 

KBDRO 

KBDSV 

KB02 

KBEOO 

KBMES 

KCNSL 

KCOOO 

KECOD 

KEFFF 

KEY 



S S 
VALUE 
0000 
0734 

0859 

0977 
0735 
0160 
0A3E 
07CD 
0755 
07D0 
0A8A 
07AE 
0943 
05E7 
0639 
05FD 
076F 
0771 
0760 
063D 
084D 
0845 
0164 
0812 
0821 
0829 
082B 
0640 
0166 
0012 
0162 
07F9 
07CC 
0809 
080F 
07C9 
068D 
0693 
0696 
07E9 
0A81 
0858 
084E 
0772 
0646 
065C 
069C 
017A 
018A 
019A 
01AA 
01BA 
075F 
0004 
063C 
0603 
062A 
060A 
0642 
0A83 
0774 
063F 
0878 
0773 
OOOE 



I E F 

REFE 
06DE, 
072E 
0615, 
081F, 
0854 
072A 
0643 
06B9, 
080F 
075E 
07B1 
0A71, 
07B4 
0852 
0639, 
061D, 
05F8 
0742, 
0776, 
0752, 
05EA, 
06A4, 
07BE, 
0876 
0831, 
081B 
0816 
0828 
0618, 



E R E N C E 

RENCES 

06E3.0A6A 

061B,064B,065A,065E,07E3,07E5,0802,0806,080D,0813,0819,081D 
0823,0826,082A,084E,OA52,OA63,OA6B 



0A3C 



0A8A 



073A,0781,07F2 
0623,0630 

0746, 0788, 078B,078F 

0777, 0795, 079A 

0757 

05FF, 0607, 061F, 0625, 062C, 0632 

06A8 

0834, 0835, 0838, 083B 

0A58 



0638, 064D,066C, 0760 



0637,0762,0768 

0836 

07BB 

07F9,07FA 

07FF 

0808 

07B9 

0678 

07A1 

0687, 

07DF, 

0646, 

0734, 

0604, 

0796, 

05DE, 

0A79 

06BF,06C1,06E 1,0704, 0706,0717, 07 ID 



',068A,06CA,0714 

: ,07EC 

>,0A44,0A75,0A81 

t, 0825, 0829 

h,06D9,0734,0A68 

>,079C 

!,05E3,05E4 



066D 

0660, 

05FB, 

05ED 

05F3 

0604 

0608 

0A56, 

0600, 

062A 

07AE 

0620, 

0793, 



0606,0716,0719,0723 
05FD,060A 



0A83 

062 6, 0633, 0747, 0758, 0778, 0790, 079B 



062E, 0743, 0753, 07 8C , 0797 
07B0,07B5,07BA,07C1,0A38 
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KEYBD 

KEYER 

KEOOO 

KFFE7 

KFFOO 

KFOOO 

KF800 

KOCOO 

K0001 

K0008 

K1000 

K4200 

K8000 

LAST 

LCASE 

LOG 

LOGBY 

LOGM 

LOWER 

MARK 

MARKE 

MARKG 

MARKL 

MARKN 

MARKP 

MARKQ 

MARKR 

MARKS 

MARKT 

MARKU 

MARKZ 

MARK1 

MARK2 

MARK3 

MARK4 

MARK5 

MLSCF 

NCAP 

NOCP 

NOIN 

NOS 

OUT 

PAD 

PDSMX 

PID 

PRCON 

PRDSW 

PTR 

PTRO 

RAO 

RDBS 

RDY2 

READY 

RE01 

RESTO 

RID 

RLCF 

ROCK 

ROLL 

RQKB 

RQTY 

RTN 

RTNSW 

SEE 

SELC 

SELC1 

SELC2 



07A3 
0636 
0844 
07C3 
0770 
07CF 
069E 
076E 
069F 
07CE 
0A82 
063B 
063E 
0A80 
0927 
0163 
0167 
0A7B 
07C7 
06A0 
0731 
06E3 
06E5 
0712 
06FD 
06FF 
0701 
070A 
06B4 
06B5 
06FC 
06BB 
06CB 
06CD 
06CE 
06D9 
05E5 
07C8 
07C5 
0775 
0006 
0003 
0007 
0840 
05DC 
066C 
0833 
OOOA 
0A28 

05DE 
0A3C 
074C 
0736 
0909 
069D 
05DD 
0168 
0992 
09C4 
01BC 
01BB 
0001 
0165 
0010 
0793 
079E 
0781 



0685 

0602,0609,0629 

05F6,07E9 

07FB 

0713 

05F1,0789 

068F 

0754,0759 

0681,0684 

082B 

0A42.0A48 

062D,0635 

0622,0628,0779 

0A41,0A4A 

0851 

0A76 

0736, 07EE 

0A72,0A78 

07C5,07D2,0708 

0755 

072D 

06A6.070E 

06D2 

0709 

06E7,06EE,06FC 

06E8 

06E9 

0706 

06A0 

06AC06B4 

06F6 

06C4,06C9 

06DB 

072B,O72F 

0733 

071A,0726 

0698, 06AE.06F8, 0840 

07B6 

07B7 

068B 

0663,06EO,070A,070C,071C,071F 

06C3.0712.07D6.0810.0A30.0A6D 



0663,06EO,070A,070C,071C,071F 
06C3, 0712, 07D6, 0810, 0A3C0A6D 
0664, 0608, 0600,0720, 0721 
074F.07F0 



0746, 07F0 
0645 




0762 



06B7 

0738 

0691, 074C 

0821 

0677,0693 

064F,066F,06AA, 0600,06 EC, 06F2.0A4F 

0855 
0856 
0783 
073C 
060E 
06B0 
060C 
078D 
0792 
0682,07C4,07C6,07FC 



,07F4 

,06CE,06E5,06EA,06F0,0A67 

,06F4 

,07A3,0A70 
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1131 KEYBOARD-PRINTER TEST 

SFT 07E0 07DB 

SLT 0005 0661, 06E2, 0703, 0705 

SLTWD 07CA 0613, 0669, 07D9,07E7 , 07FE ,081 A 

SNR OOOC 0A40,0A47 

SPNDX 0959 0853 



069A,06B2,06FA,0842 

05F0,05F5,05FE,060B, 06 1E.062B, 0648, 0676, 0688, 0690, 0694, 078A,07EB 

na->r .nA7^ 



START 0161 

STS 0002 

082C.0A73 

SVC 0688 067E 

SVKB 01BD 0785 

SWSC 0A58 0A4B 

SWSD 0A67 

SWSE 0A6E 

SWSET 0A3F 0672 ,068D,0A45 

SWSP 0A72 0A57 

SWO 05DF 

SW1 05E0 0651, 0656, 06A0, 0728, 082F ,0A5B, 0A6E 

SW2 05E1 

SW3 05E2 

TACAR 08FA 084F,0A28 

T6LI 07E7 0811 

TBLIS 07E5 07DE 

TBLIZ 07E3 07E2 

TERM 05E6 0724 

TIMEX 084C 

TWIST 09F6 0857 

TWLVE 0641 060D,0671,0A4D 

TYCOD 08B9 07D0 

TYCUS 0643 0A90 

TYEND 0876 067B,06CB 

TYPIT 0750 0744 

TYPSV 061E 05FC 

UCASE 090B 0850 

WRDCT 07AB 0610, 0666, 07A6,07E8, 0814 

WRT 0008 0750, 07F6 

END OF ASSEMBLY 

LAST PAGE - 
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PARAGRAPH 



1. PURPOSE 



2. PRERFQUISITF. 



PAGE 

1 

1 



2.1 

2.2 



PROGRAM PREREQUISITES 
FQUTPMENT PREREQUISITES 



3. OPFRATING PROCEDURE 



3.1 PROGRAM LOADING 

3.2 program pocpATION 

3.2.1 PROGRAM CONTROL - FUNCTION 

3.2.? ROIJTINF SELECTION - FUNCTION 1 

3.?.^ SPFCTAL SELECTION - FUNCTION 2 

3.3 PROGRAM HALTS 
3.3.1 NORMAL MALTS 
3.3.? ERROR HALTS 

3.4 PROGRAM TFRMINATION 

3.5 Rcstapt 



4. PRINTOUT. 



4.1 
4.2 



STATUS MFSSAT-fS 
FRROR MFSSAGFS 



rOMMFMT^, 



4A 



5.1 ROUTINF 1 PFN UP-PEN OOWN OCTAGON TEST 

5.2 ROUTINE 2 REGISTRATION YES 

5.3 ROUTINE 3 SWING TFST 

5.4 ROUTINF 4 STRESS TEST 

5.5 ROUTINE 5 SFI FCT COMMAND 

ft. APPENDIX 5 

FIG. 1 PATTERN FOR P^N UP-PEN OOWN TFST 

FIG. 2 PATTERN FOR REGISTRATION TEST 

FIG. 3 PATTERN FOR SWING TEST 

FIG. 4 PATTERN FOR STRFSS TEST 



1. PURPLE 

THF PURPOSE OF THE 1627 PLOTTER OIADNOSTTC TFST IS TO EXECUTE THE DIFFERENT 
MOVEMENTS OF THE PLOTTER ANO TO CHFCK THE CABLES FOR CORRECT ADJUSTMENT. 

?. PREREOUI SITES 

2.1*** PROGRAM PREREQUISITES 

1130 DIAGNOSTIC MONITOR II. 

2.2*** FQUIPMENT PRERPQUI SI TES 

1. 1131 CENTRAL PROCESSING UNIT (CPU) WITH PROGRAM LOAD FROM 
CARD READER OR PAPER TAPE. 

2. 1627 PLOTTER MOD^L 1 OR 2. 

3. 1000 AVAILABLE CORE POSITIONS OF CORF STORAGF 
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3. OPERATING PROCFOURE 



THFSE OPFRATING PROCEDURES APPLY TO SINGLE PROGRAM OPFRATION ONLY. 
FOR OVERLAP OPERATION, REFER TO SECTION 3.2.3 OF THE 1130 
DIAGNOSTIC MONITOR II DOCUMENTATION. 

3.1*** PROGRAM LOADING 

STANDARD MONITOR LOADING PROCEDURES APPLY 

THESF PROCEDURFS ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR 
DETAILS. 

1. SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEFT MARGIN. 

2. SET BIT SWITCH 15 OFF - LOAD AND GO 

ON - TO HALT AFTER LOADING 

IF HALT AFTFR LOADING, SELECT PROGRAM 
OPTIONS THFN TURN OFF HALT SWITCH OR 
FOLLOW NORMAL RESTART PROCEDURE 
(SECTION 3.5). 

3. LOAD DIAGNOSTIC MONITOR AND THIS PROGRAM. 

4. SELECT PROGRAM OPTIONS, IF DESIRED. 

****** 



3.2*** PROGRAM OPERATION. 

3.2.1 PROGRAM CONTROL - FUNCTION 



1. 
2. 



SET SWITCHES 0-7 TO 01. 

SET SWITCHES 3-15 AS DESIRFD. 



sw 


FUNCTION 


8 


RESTART 





ROUTINF START MFSSAGE 


10 


LOCK ON FUNCTION 


11 


LOOP PROGRAM 


12 


LOOP ON ERROR 


13 


BYPASS ERROR PRINTOUT 


14 


HALT ON ERROR 


15 


HALT 



3. 



PRESS INT REQ KEY ON CONSOLE. 

** 
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3.2.2 ROUTINE SEIFCTION 



FUNCTION 1 



THE SELFCTFO Rn(|T INF Wilt I OOP UNTIL A NEW ROUTINE IS SELECTED 
OR ROUTINE SELFCT10N IS RESET. 

1. TO SET ROUTINF SELECTION 

A. SET SWITCHES 0-7 TO 41. 

B. SET ROUTINE NUMBER IN SWITCHES 12-15. 



RTN 



OFSCRIPTION 



1 


PEN UP-PEN DOWN OCTAGON 


TEST. 


NORMAL ROUTINES- 


2 


REGISTRATION TEST 




THE PROGRAM STARTS WITH 


3 


SWING TEST 




ROUTINE 1, RUNS EACH 


4. 


STRESS TEST 




ROUTINE IN SEQUENCE 
THEN TERMINATES AFTER 
ROUTINE 4. 


5. * 


SFl.ECTION COMMAND 




OPTIONAL ROUTINES 
THESE ROUTINES RUN 
ONLY IF SELECTED. 



* _ rfpfR TO SECTION 3.2.2.3 FOR SPECIAL INSTRUCTION 
C PRESS INT REQ KEY ON CONSOLE. 
2. TO RESET ROUTINE SELECTION, SET AS IF SELECTING ROUTINE ZERO. 

** 



3.2.3 



3. PROGRAM OPTIONS 

ROUTINE 5 - SELECTION COMMAND 

AFTER SFLFCTION BY FUNCTION 1, THE CONTROL COMMAND DATA IS TAKFN 
FIRST FROM BITS 0-5 AND THEN FROM S-13. 



ACTION OR MOTION 



BITS 



LOWER PEN TO PAPER 

UP (PAPER MOVES DOWN! 

DOWN IPAPER MOVES UP) 

RIGHT 

LEFT 

RAISE PEN FROM PAPER 

****** 

SPECIAL SELECTION - FUNCTION 2 






OR 


8 


1 




9 


2 




10 


3 




11 


4 




12 


5 




13 



I. 

2. 



3. 



SET SWITCHES 0-7 TO 81. 

SET SWITCHES B-15 AS DESIRED. 



sw 

15 



FUNCTION 



LOCK OUT MONITOR. THIS WILL BYPASS MONITOR TO ALLOW THE 
PLOTTER TO RECEIVE COMMANDS FASTER AND TEST FOR SLOW OR 
RINDING TRANSPORT. ALL OVERLAP FUNCTIONS ARE BYPASSED 
WHILE MONITOR LOCK-OUT OPTION IS SELECTED. 

PRESS INT RFO KEY ON CONSOLE. SWITCH SETTINGS MAY NOT BE LOGGED 
BECAUSE OF THE LOCK OUT TIMING. 
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3.3*** PROGRAM HALTS 
3.3.1 NORMAL HALTS 



HALT NO. 
(B RFGI 


DESCRIPTION 


RESTART 
ACTION 


3001 . 

3002 . 


PROGRAM STOP OR ADDRESS STOP 
HALT ON ERROR 


PRESS START 

PDISPLAY MODE-PRESS START 
RUN MODE-PRESS START 



3.3.2 ERROR HALTS 



.HALT NO. 
.(B REGI. 


DESCRIPTION 


RESTART 
ACTION 


. 30E1 . 


CHFCK SUM ERROR ON FIRST 
CARD OF LOADER 


RELOAO 


. 30F2 . 


READER DSW ERROR WHEN 
10ADING LOADER 


RELOAD 


. 30F3 . 


CAPO 2 OF LOADER DID NOT 
LOAD 


RELOAO 


. 30F4 . 


CAN NOT CLEAR CORE - DUE TO 
ERROR IN ADDRESSING UPPER 
CORE. 




. 30F5 


READER CHFCK WHEN LOADING 
MONITOR OR TEST PROGRAM 


NPRO THFN PLACE CARDS 
RUN OUT IN FRONT OF 
REMAINING DECK AND PRESS. 
START. 


. 30F6 


MONITOR DID NOT LOAD 


RELOAD 


'. 30F7 . 


CHFCK SUM WHEN LOADING 
MONITOR 


RFLOAO 


. 30F8 


READER NOT READY 


MAKE REAOER READY 


. 30F9 


INVALID INTERRUPT WHICH WILL 
NOT RESET 


PRESS RESET AND START 


. 30FA 


CONSOLE PRINTER HANG UP - 
BUSY WILL NOT GO OFF 


FIX THE CONSOLE PRINTER . 



3.4*** PROGRAM TERMINATION 

IE LOOP PROGRAM HAS NOT BEEN SPECIFIED THE PROGRAM WILL TERMINATE 
AT THE END OF ROUTINF 4. ROUTINF 5 WILL ONLY RUN IF SELECTED. 

IF ANY ROUTINE IS SELFCTED THAT ROUTINE WILL LOOP AND WILL NOT 

TERMINATE. 

****** 

3.5*** RESTART 

1. SET SWITCHES 0-7 TO 01. 

2. TURN ON SWITCH 8. 

3. SET DESIRED CONTROL IN SWITCHES ^-14. 

4. PRESS INTERRUPT REQUEST KEY. 
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4. PRINTOUTS 

ALL PRINTOUTS ARE IN THE STANDARD FORMAT. 



APPNN OORR AAAA 

OR 

EPPNN OORR AAAA 

WHERE 



(MESSAGE* 



(MESSAGF! 



A 

F 

pa 



IDENTIFIES STATUS MESSAGES 

IDENTIFIES FRROR MESSAGES 

IS THE PIO OF THF PROGRAM CAUSING THE MESSAGE 

THIS WILL RE EITHER 00 FOR MESSAGES 
ORIGINATED BY THE MONITOR OR 
OB FOR MESSAGES ORIGINATED BY 
THIS PROGRAM. 



NN IS THE MESSAGE SEQUENCE NUMBER 

RR IS THE ROUTINE NUMBER 

AAAA IS THE ADDRESS OF THF ROUTINE 

MFSSAGE IS ANY VARIABLE INFORMATION 



4.1*** STATUS MESSAGFS 
AOOOO 



NUM PID ADRS RELF 
XXXX XXXX XXXX XXXX 



LO 



THIS MFSSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM 
(EXCF p T MONITOR), THE MFSSAGE GIVES THE LOAD SEQUENCE NUMBER, 
THE PROGRAM 10, THF ADDRESS INTO WHICH TH^ PROGRAM WAS LOADED, 
AND THE RELOCATION FACTOR. 



4.2*** ERROR MESSAGES 

THE OSW IS CHFtKEO FOR ABSOLUTE CORRECTNESS AT ALL TIMES. IF AN 
ERROR IS DETECTED ONE OF THE MESSAGES BELOW WILL INDICATE THE 
PROBLEM. IT IS LEFT TO THE OPERATOR TO ANALYZE THE DSW FOR THE 
SPECIFIC PROBLEM «REA. 

***************************************************** 
* THE PLOTTER OSW * 

* * 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
***************************************************** 



EOOOl 



A0001 



SWS PID 
XXXX XXXX 

THIS MESSAGF IS PRINTED EACH TIME A VALID SWITCH ENTRY IS READ 
BY THE MONITOR. THF MESSAGE CONTAINS THE SWITCH SETTING READ 
TOGETHER WITH THE PROGRAM ID OF THE PROGRAM INTO WHICH THE 
CONTENTS OF SWITCHES R-15 WERE STORED. IF THE SWITCH ENTRY 
CALLED FOR HALT OF ANY PROGRAM, THE WORD HALT WILL FOLLOW THE 
MESSAGF. 



E0003 



E0004 



A0500 OORR AAAA 



ROUTINF START MESSAGE - IF SWITCH 9, FUNCTION 0, IS TURNED ON, 
THIS MESSAGE WILL BE PRINTED BEFORE THE START OF EACH ROUTINE. 
R IS TH p DUMBER OF THE NEXT ROUTINF AND AAAA IS THE STARTING 
ADDRESS. 



A0505 OORR wov 

PLOTTER POWER IS TURNED OFF. 



A0508 OORR 



PROG HALT 
INDICATES PROGRAM HAS BEEN HALTED BY PIT SWITCH 15 FUNCTION 00 
BEING SFT ON. SET BIT 15 O^F TO CONTINUE. 



* 








* 


BIT 






* 





PLOTTER RESPONSE 


* 


1 


NOT 


USED 


* 


? 


NOT 


USFD 


* 


3 


NOT 


USED 


* 


4 


NOT 


USFD 


* 


5 


NOT 


USFD 


* 


6 


NOT 


USED 


* 


7 


NOT 


USED 


* 


B 


NOT 


USED 


* 


9 


NOT 


USED 


* 


10 


NOT 


USFD 


* 


11 


NOT 


USFD 


* 


12 


NOT 


USED 


* 


13 


NOT 


USED 


* 


14 


BUSY 


* 


15 


NOT 


READY 


* 









SWS INVLD 
XXXX 

THE SETTING OF SWITCHES 4-7 DID NOT EQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PROGRAM IN CORE. 



OVR CORE 

THE PROGRAM WHICH THE LOADER WAS ATTEMPTING TO LOAD 
EXCEEDED AVAILABLE CORF. LOADING WAS TERMINATED. 



CKSUM 

A CHECK SUM ERROR WAS DETECTEO WHILE LOADING A TEST PROGRAM. 
THIS ERROR OCCURS UNDER ANY OF THE FOLLOWING CONDITIONS. 

1. A CARO IS MISSING OR IS OUT OF SEQUENCE. 

2. THERE IS AN EXTRA CARO IN THE DECK. 

3. THF PUNCHFD INFORMATION ON THE CARD IS NOT CORRECT. 

4. DATA WAS LOST OR PICKED UP DUE TO A MACHINE MALFUNCTION. 

5. DUE TO A CPU MALFUNCTION, THE CHECK SUM WAS NOT 
CORRECTLY CALCULATED. 

WHEN THIS ERROR OCCURS ATTEMPT TO RELOAD THE PROGRAM. 
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ro005 OOON XXXX 

THIS FPROP WTIL OCCUR IS AN INTERRUPT OCCURS, BUT THE ILSW 
HAS NOT CORRECT. N IS THF INTERRUPT LFVFL ANfl XXXX IS THF 
ILSW. THIS PRINTOUT WILL ONLY OCCUR IF THE INTERRUPT IS RESFT 
BY A BOSC. NO ATTEMPT It MAOE BY THE ERROR ROUTINF TO RESET 
THf REQUEST BIT. 



P0501 OOOR AAAA 



WAS S/B DSW 

XXKK 0000 



STATIC OJW ERROR. THIS DSW MAS $ENSFD BEFORE GIVING A CONTROL COMMAND 
TO THE 1677. ANY "TT8 ON INMCATE AN ERROR. IF BIT 15 IS ON I NOT 
BFAOYI, rHFCK POP 14?7 ROME* ON. 



F050? OOnp «AAA 



WAt S/B BUSY OSW 
XXKK 0002 



BUSY OSW FRROR. THIS 1IU MAS SFNSFD IMMFOIATFLY AFTFR A CONTROL 
COMMAND WAS GIVFN TO THE 1627. IT SHOULO SHOW THF 1627 BUSY. NO 
OTHER BITS SHPIILO Bf ON. 

I^ THIS ERROR OCCURS DURING OVERLAP, SEE NOTE ON I/O TFST INOFX 
PAGF, P/N '1*1291. 



E0501 OOOR 1AAA 



OSW NO INTRPT 
XXXX 



MO INTERRUPT WAS RFCFIVEO AFTER A CHNTROl COMMAND TO THF 1627. THE 
HSW WAS S«=Nsrn AT LEAST 2 SECONDS AFTER THE 1677 COMMAND. 

IF A BUSY OSW FRRO» (C05021 IS ALSO INDICATED, THF CONTROL COMMAND 
WAS NHT RFCFIVFO BY THE 1627. 



FO504 OOOR AAAA 



WAS S/B INTRPT OSW 



INTERRUPT OSW ERROR. THIS DSW WAS SENSED IN INTERRUPT. IT SHOULD 
SHOW THF RESPONSE BIT ON AND ALL OTHER BITS OFF. 
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5. COMMENTS 

5.1*** ROUTINE 1 ( "FN (IP-PEN DOWN OCTAGDN TEST ) 

T hf PURPOSF OF THIS POUTINF IS TO TEST THE CAPABILITY OF THF PLOTTER 
Tn pxpniTP T hf PFN IIP AND PFN DOWN PLOTTER COMMANDS. IN THIS ROUTINE, 
AS IN THF HTHFR PLOTTER PATTERN r,FNEPATING ROUTINFS, AN ADDRESS TABLE 
IS USED TO SELECT THE CORRECT PLOTTFR COMMANDS. THE ADDRESS TABLE, IN 
TURN, POINTS TD A PAIR OF COMPUTER WO»DS. ONF WORD CONTAINS A NUMBER 
WHICH INDICATES THF NUMBER OF TIMES THE OTHER WORO ( THE PLOTTFR 
COMMAND ) IS TO BF EXECUTED. 

THf. PATTFRN PLOTTED IN THIS FUNCTION TEST CONTAINS TWO ADJACENT 
OCTAGONS, WHOSE STDFS ARF ONE AND ONF HALF INCHES IN LENGTH. OCTAGON 
NO. 1 ( LFFTMOST OCTAGON ) IS PLOTTED IN A CLOCKWISE DIRECTION. 
OCTAGON NO. 2 ( RIGHTMOST OCTAGON ) IS PLOTTED IN A COUNTER CLOCKWISE 
DIRECTION. 

THIS ROUTINF IS DESIGNED SO THAT, IF A PEN UP COMMAND IS NOT EXECUTED 
AS IT SHOULD BE, A LINE WILL BF DRAWN IN THE INNER PORTION OF THE 
OCTAGON. IF A PEN DOWN COMMAND IS NOT EXECUTED, A SIDE OF THE OCT- 
AGON WILL BE MISSING. FIGURE 1 SHOWS AN EXAMPLE OF THE OUTPUT OF 
THIS ROUTINF. 

5.2*** ROUTINE 2 REGISTRATION TFST 

THF FUNCTION OF THIS ROUTINE IS TO DETERMINE IF ANY ADJUSTMENTS ARE 
NEEDED IN THF PEN OR DRUM MOVFMFNT MFCHANISMS. FIGURE 2 SHOWS THE 
PATTFRN GENERATED BY THIS ROUTINE. IF ANY OF THF L INFS FAIL TO 
INTERSECT, MECHANICAL ADJUSTMENT OF THE PLOTTFR IS NECESSARY. 

5.3*** ROUTINF 3 SWING TFST 

THE PURPOSF OF THIS ROUTINE IS TO TEST THE ABILITY OF THE PLOTTFR TO 
PLOT LONG LTNc SFGMFNTS TN VARIOUS DIRECTIONS. THE PATTERN GENERATEO 
BY THIS ROUTINE IS SO DESIGNED, THAT IF PLOTTER COMMANDS ARE NOT EX- 
ECUTED OR EXTRA COMMANDS ARE EXECUTED, THE CORNERS OF THE PATTERN 
WILL NOT JOIN. THIS TEST WILL ALSO SHOW UP ANY MALADJUSTMENT IN THE 
PEN OR ORUM MECHANISM. 

THE METHOD USFD IN GENERATING THE PATTERN IS AS FOLLOWS, 

A. THF LEFT AND TOP SIDES OF A SERIES OF SQUARES ARE DRAWN AS A 
CONTINUOUS LINE, VARYING IN SIZE FROM 10 TO 2 INCHES. 

B. THF RIGHT AND BOTTOM SIDES OF THE SERIES OF SQUARES ARE 
DRAWN IN ONF QUARTER INCH LINE SEGMENTS, JOINED TOGETHER, AND 
TOTALING THF LENGTH OF THE LEFT AND TOP SIDES. 

C. ON COMPLETING THE PLOTTING OF THE SQUARES, LINES ARE DRAWN 
I BOTH SEGMENTED AND CONTINFOUS ) THRU THE CORNERS OF THE 
SQUARES. ALL OF THESE DIAGONAL LINES SHOULD INTERSECT THE 
CORNFRS OF THE SQUARES PERFECTLY. 

FIGURE 3 SHOWS THF PLOTTER PATTERN GENERATED BY THIS ROUTINE. 
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5.4*** ROUTINE 4 STPESS TEST 



(WINDMILL PATTERN) 



THF pijRPDSE OF THIS ROUTINE IS TO EXERCISE ALL OF THE MECHANICAL 
FUNCTIONS OF THF PLOTTER. THIS OBJECTIVE IS ACCOMPLISHED BY PLOT- 
TING A PATTFRM OF TRIANGLES, ROUGHLY RESFMBELING A WINDMILL. EACH 
S | 0F nF THE TRIANGLF CONSISTS OF A SFRIES OF SHORT SAWTOOTH-LIKE SEG- 
MENTS, WHICH TESTS THE ABILITY OF THE PLOTTER TO PLOT SHORT LINE 
SFGMFNTS WITH ABRUPT CHANGES IN DIRECTION. A SET OF FIVE TRIANGLFS 
IS PLOTTFO, THF AXIS IS THEN POTATED 90 OFGRFES AND FIVE MORE TRI- 
ANGLES ARE PLOTTED IN THE SAME MANNER UNTIL, FINALLY, FOUR SETS OF 
TRIANGLES HAVE BFEN PLOTTFO. WHEN THE TRIANGLES HAVE BEEN PLOTTED, A 
LINE IS DRAWN THRU TH^ INNFRMOST POINTS OF THE TRIANGLES. THE RE- 
SULTANT PATTERN THEN APPEARS AS A WINOMIIL WITH A DIAMOND SHAPED 
PATTERN CONNFCTING THE INNER POINTS OF THE TRIANGLES. THF DIAMOND 
DESIGN SHOULD INTERSECT ALL OF THF INNER POINTS OF THE TRIANGLES IF 
THF PLOTTER IS ADJUSTED CORRECTLY. FIGURE 4 SHOWS THE PLOTTER PAT- 
TERN GENERATED BY THE ROUTINE. 

5.5*** ROUTINF 5 SELECT COMMAND 

ROUTINE 5 WILL NOT RUN UNLESS SELECTED. THIS ROUTINE ALLOWS THE 
FIELD ENGINEER TO EXECUTE ANY DESIRED COMBINATION OF TWO PLOTTER 
COMMANDS. ONF COMMAND IS SET IN SWITCHES 0-5, THE OTHER IS SWITCHES 
8-13. THE SWITCHES ARE READ DIRECTLY BY THIS ROUTINE. THUS ANY 
CHANGE IN SWITCH SETTING WILL RESULT IN AN IMMEDIATE CHANGE IN 
THF COMMAND. THE PROGRAM WILL RUN IN THIS ROUTINE UNTIL ANOTHER 
ROUTINE IS SELECTED. 

6. APPENDIX 

THE FOLLOWING PAGES CONTAIN THE PLOTTER OUTPUT PATTERNS. 

FIG. 1 PATTERN FOR PEN UP/PEN DOWN TEST 

FIG. 2 PATTFRN FOR REGISTRATION TEST 

FIG. 3 SWING TEST PATTERN 

FIG. 4 STRESS TEST WINDMILL PATTERN 



fIGURE 1 



PATTERN FOR PEN UP/PEN DOWN TEST 




SCALE: 3 A - 1 



FIGURE 2 



PATTERN FOR REGISTRATION TEST 




SCALE: 3A - 1 
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FIGURE 3 



SWING TEST - PATTERN 




SCALE: 3 A - 1 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1627 PLOTTER FUNCTION TEST 



PART NO. 2191236 
PAGE 6 A 



FIGURE k 



STRESS TEST - WINDMILL PATTERN 



Zl 
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*************** ************************************** a **************„„* 
* 

THIS ENGINEERING CHANGE REFLECTS MAJOR 
CHANGES TO THE DIAGNOSTIC MONITOR. PREVIOUS 
TESTS WILL NOT RUN WITH DIAGNOSTIC MONITOR II. 



THIS TEST WILL NOT RUN WITH PREVIOUS MONITORS. 

TESTS PRIOR TO EC 419643 DATED NOV 15, 1966 
WILL NOT OPERATE PROPERLY WITH DIAGNOSTIC 
MONITOR II. 



********************************************************** ************* 



1130 



1627 PLOTTER FUNCTION TEST 



0160 

0161 

0162 

0163 

0164 



0165 

0166 

0167 



017A 





018A 





019A 





OlAA 





01BA 





01BB 





OIBC 





01BD 






05DC 



osnc o 0305 

05!)0 0003 

05or o ooon 

050F 0000 

05E0 0000 



* 

* 

******************************************** 

* EQUATE TABLE 
******************************************** 

* THIS TABLE EQUATES TEST PROGRAM LABELS 

* TO THEIR EQUIVALENT DIAGNOSTIC MONITOR 

* ADDRESSES. 
* 

* MONITOR ENTRY ADDRESSES 



BEGIN 

START 

ERROR 

LOG 

END 

* 

* 

* 

* 

RTNSW 
ERLCK 
LOGBY 

* 

* 

• 

* 

ILO 

IL1 

IL2 

IL3 

IL4 

RQTY 

RQKB 

SVKB 

* 

***** 



EQU /160 BEGIN ROUTINE 

EQU BEGINE1 SUPERVISOR ROUTINE 

EQU STARTCl ERROR LOG ROUTINE 

EQU ERR0RE1 STATUS LOG ROUTINE 

EQU L0GE1 END ROUTINE 



MONITOR CONTROL WORD ADDRESSES 

EQU ENDCl ROUTINE START SW 

EQU EN062 LOCK ON ERROR CONTROL 

EQU ENDE3 I/O BUSY SW ADDRS 



INTERRUPT TRANSFER VECTOR ADDRESSES 

EQU /17A INTERRUPT LEVEL ZERO 

FQU IL0C16 INTERRUPT LEVEL ONE 

EQU IL1G16 INTERRUPT LEVEL TWO 

EQU IL2E16 INTERRUPT LEVEL THREE 

EQU IL3E16 INTERRUPT LEVEL FOUR 

FQU IL4E1 CONSOLE PRINTER REQUEST 

EOU RQTY61 USE KEYBOARD REQUEST 

EQU RQKBE1 KB SERVICE REQUEST 



*- 

* 

* 

* 

*- 

* 

***** 

* 

***** 

* 

PIP 

RID 

RAD 

swo 

SW1 



*************************************** 
ORG *S/05DC 

THE MONITOR USES CORE LOCATIONS 0-05DC. 
FOR CONTENTS OF THESE ADDRESSES REFER 
TO THE DIAGNOSTIC MONITOR LISTING. 



*************************************** 
PROGRAM CONTROL TABLE 

= **<:*********************************** 

DC /0305 PROGRAM j g 

DC *-* ROUTINE ID 

OC *-* ROUTINE ADDRS 

DC *-* PROGRAM CONTROL 

DC *-* ROUTINE SELECTION 



30500020 
30500030 
30500040 
30500050 
30501060 
30500C70 
30 500080 
31500090 
30500100 
30500110 
30500120 
30500130 
30500140 
30500150 
30 500160 
30500170 
30500180 
30500190 
30500200 
30500210 
30500220 
30500230 
30500240 
30500250 
30500260 
30500270 
30500280 
30500290 
30500300 
30500310 
30500320 
30500330 
30500340 
30500350 
30500360 
30500370 
30500380 
30500390 
30500400 
30500410 
30500420 
30500430 
30500440 
30 500450 
30500460 
30500470 
30500480 
30500490 
30500500 
30 500510 
30500520 
30500530 
30 500540 
30500550 
30500560 
30500570 
30 500 580 
30501590 
30500600 
30500610 
30S00620 
3C 5 00630 
31500640 
30510650 
30500660 
30500670 
30500680 
31500690 



05E1 0000 


SW2 


DC 


*-* 


05E2 0000 


SW3 


DC 


*-* 


05E3 1 05EP 




DC 


STRT 


05E4 1 05EB 




DC 


STRT 


05E5 0000 


MLSCF 


DC 


*-* 


05^6 0000 




DC 


*-* 


05E7 FFFF 




DC 


/FFFF 



05E8 4480 0160 
05EA 1 05DC. 



05EB 6100 
05EC 69F0 
05ED I 6500 083A 
05EF 6D00 OlAA 
05F1 4000 



05F? 0000 
05F3 COEC 
05F4 1 4C08 05FD 

05F6 D0E6 
05F7 9017 
05F8 1 4C0R 0603 
05FA 1810 
05FB D0E4 
05FC DOEO 

05FD 1 7401 05DD 
05FF CODO 

0600 900F 

0601 44B0 0164 

0603 1 6580 050D 

0605 1 C500 0610 
0607 00D6 
06 08 DOOD 

0609 O D400 0165 
060B 1 4400 07FE 
060D 1 4C80 05E6 

O60F 0005 

0610 0004 



0611 1 0616 

0612 1 062A 

0613 1 067B 

0614 1 06F3 

0615 1 0763 



LOCK-OUT MONITOR BIT 15 



RESTART ADDRESS 

SET BY WAIT RTN AND HON 

SET BY CNTRL AND INRTPT 

TERMINATOR 



******************************************** 

* TEST INITIALIZATION 
******************************************** 

* 

BGIN BSI I BEGIN 

DC PID PCT ADDRESS 

* 

* 

* START OF TEST AND SINGLE PASS INITIALIZATION 

* 

* 

STRT LDX 1 SET TO START WITH 

STX 1 RID FIRST ROUTINE 

LDX LI RFCEV 

STX LI IL3 

BSI CNTRL 
* 
******************************************** 

* SEQUENCE CONTROl ROUTINE 
******************************************** 

* THIS ROUTINE CHECKS SW1 AND CONTROLS 

* THE SEQUENCE IN WHICH TEST ROUTINES 

* ARE RUN. 

* 

* 
CNTRL 



* 
CN10 



* 
CN20 



* 
CN30 



DC 
LD 
BSC L 

STO 

S 

BSC L 

SRA 

STO 

STO 

MDX L 

LD 

S 

BSI I 



* 

R I DCK 

RTNOM 

* 

* 

* 

RTTRL 



NRTN 
LRTN 

* 



LDX 

LD 

STO 

STO 

STO 

RSI 

BSC 

DC 
DC 



II 
LI 



*-* 
SW1 
CN20.-C 

RIO 

RIDCK 

CN30.6 

16 

SW1 

RID 

RID.l 
RID 

RTNOM 
END.-Z 

RID 

RTTBL-1 

RAD 

MLSCFtl 

RTNSW 

CKLK 

MLSCFE1 



BR IF NO RTN SELECTD 

SAVE NEW RTN NUMBER 

BR IF VALID RTN 

IF INVALID RTN GO 
TO RTN ONE 

ADV TO NEXT RTN 
CHECK FOR END OF 

NORMAL SEQUENCE *1 
END OF PROGRAM 

XR1SNEW ROUTINE NUMBER 
FETCH RETURN ADRS 
STORE NEW RTN ADDRS 
SET MLSCF FOR RETURN 
SET RTN START SW 
CHECK LOCK-OUT 
CONTINUE WITHOUT MONITOR 



LRTN-RTTBL61 
NRTN-RTTRLE1 



*2 



ROUTINE ADDRESS TABLE 



DC 
DC 
DC 
DC 
DC 



RT1 
RT2 
RT3 
RT4 
RT5 



PEN UP-DOWN OCTAGON 
REGISTRATION TEST 
SWING TEST 
WINDMILL TEST 
MANUAL CMD SELECTION 



30500700 

30500710 

30500720 

30500730 

30500740 

30500750 

30500760 

30500770 

30500780 

30500790 

30500800 

30500810 

30500820 

305008 30 

30500840 

30500850 

30500860 

30500870 

30500880 

30500890 

30500900 

30500910 

30500920 

30500930 

30500940 

30500950 

30500960 

30500970 

30500980 

30500990 

30501000 

30501010 

30501020 

30501030 

30501040 

30501050 

30501060 

30501070 

30501080 

30501090 

30501100 

30501110 

30501120 

30501130 

30501140 

30501150 

30501160 

30501170 

30501180 

30501190 

30501200 

30501210 

30501220 

30501230 

30501240 

305012 50 

30501260 

30501270 

305012 80 

30501290 

30501300 

30501310 

30501320 

30501330 

30501340 

30501350 

30501360 

30501370 
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DATE 
EC NO. 



******************«********, ^m^,^,,^^ 

***** ROUTINE 1- OCTAGON PEN UP-DOWN 

*******************************„,^;,™** 



0616 


1 


4400 


07DF 


RT1 


BSI 


L 


READY 


0618 


1 


C400 


0871 




LD 


L 


K0150 


06IA 





62F1 






LDX 


2 


-15 


06 IB 


1 


D600 


085D 


OCTGN 


STO 


L2 


NNS15 


061D 





7202 






MDX 


2 


2 


061E 





70FC 






MOX 




OCTGN 


061F 


1 


6500 


0877 




LDX 


LI 


RT1ST 


0621 


1 


6D00 


0374 




STX 


LI 


LOOK 


0623 


1 


4400 


0792 


* 


BSI 


L 


DISP 


0625 


1 


7401 


0874 


MDX 


L 


LOOK, ] 


0627 


1 


4400 


0792 




BSI 


L 


DISP 


0629 





40C8 






BSI 




CNTRL 



sc 



062A I 4400 07DF 



06 2C 
062E 
06 30 
0632 
0634 
06 36 
0638 
063A 
063C 
063E 



6700 
6F00 
6F00 
6F00 
6F00 
1 6F00 
1 6F00 

6700 

1 6F00 



1 6F00 



0640 1 

0642 1 

0644 

0645 

0647 

0649 

064B 

0640 

064F 



6500 
6D00 
63FB 
6F00 
4400 
7401 
6 700 
6F00 
4400 



0064 
08 5C 
085A 
084E 
0850 
0856 
0858 
0032 
0R52 
0854 

08CA 
0874 

086D 
0792 
0874 
03E8 
0852 
0792 



0651 
0653 
0655 



74FE 0874 
7401 086D 



70F9 
0656 1 7403 0R74 

0658 63FB 

0659 1 6F00 0860 

065R 1 4400 0792 
065D 1 74FE 0874 
065F 1 7401 0860 

0661 70F9 

0662 63F6 

0663 1 6F00 0360 
0665 I 7403 0374 

0667 1 4400 0792 

0669 1 74F8 0374 

0668 1 7401 0860 
0660 70F9 

066E 1 7409 0874 

0670 6332 



02JAN66 
415490 



15N0V66 
419643 



CONSTANT OF 150 
INSTR CT EC 1.5 INCH 
STORE MOVE COUNT 

FINISH STORING COUNT 



CALL DISPATCH RTNE SC 

BUMP INSTR ADDR PNTR 
CALL DISPATCH RTNE SC 
RETURN TO CONTROL RTN 

♦l********************,********^^,^^.,^ 

*!!!!*~ ROUTINE 2- REGISTRATION TEST ** 

RT2 



BSI L READY 



SC 



REG01 



REG02 



LDX 
STX 
STX 
STX 
STX 
STX 
STX 
LDX 
STX 
STX 

LDX 
STX 
LDX 
STX 
BSI 
MOX 
LDX 
STX 
BSI 

MDX 
MDX 
MDX 
MDX 
LDX 
STX 

BSI 

MDX 
MDX 
MOX 

LDX 
STX 

MDX 



L3 
L3 
L3 
L3 
L3 
L3 
L3 
L3 
L3 
L3 

LI 
LI 
3 
L3 
L 
L 

L3 
L3 
L 

L 

L 

L 

3 
L3 

L 
L 

L 



100 
NW 

SM 

NN 

S 

NE 

SE 

50 

EF 

WW 

RT2ST 

LOOK 

-5 

EXTRA 

OISP 

LOOK, 1 

1000 

EE 

OISP 

LOOK, -2 
EXTRA, 1 
REG01 
LOOK, 3 
-5 
EXTRA 

DISP 
LOOK, -2 
EXTRA, 1 
REG02 



3 -10 
L3 EXTRA 
L LOOK, 3 



RFG03 BSI 
MDX 
MDX 
MDX 

* 



DISP 
LOOK, -3 
EXTRA, 1 

RE GO 3 



MDX L LOOK, 9 
LDX 3 50 



15N0V69 
571063 



INITIALIZE INSTR CTRS 

TO 100, EQUAL TO 

1 INCH OF PLTR 0/P. 



INITIALIZE INSTR CTRS 

TO 50, EQUAL TO 

0.5 INCH OF PLTR 0/P. 

STRING ADDR 
RT TWO STRING 

CTR STG 

CALL DISPATCH RTNE SC 

BUMP INSTR ADDR PNTR 

LOAD 10 INCH PLOT 

MOVEMENT TO EAST 

CALL DISPATCH RTNE SC 

BACK UP ADDR POINTER 



CALL DISPATCH RTNE SC 
BACK UP ADOR POINTER 



LOAD XR 3 



CALL OISPATCH RTNE SC 
BACK UP AOOR POINTFR 



BUMP ADDR POINTFR 



30501380 

30501390 

30501400 

30501410 

30501420 

30501430 

30501440 

30501450 

30501460 

30501470 

30 501480 

30501490 

30501500 

30501510 

30501520 

30501530 

30501540 

30 5015 50 

30501560 

30501570 

30 501580 

30501590 

30501600 

30501610 

30501620 

30501630 

30501640 

30501650 

30501660 

30501670 

30501680 

30501690 

30501700 

30501710 

30501720 

30501730 

30501740 

30 501750 

30 501760 

30501770 

30 501780 

30501790 

30501800 

30501810 

30501820 

30501830 

30501840 

30501850 

30501860 

30501870 

30501880 

30501890 

30501900 

30501910 

30501920 

30501930 

30501940 

30501950 

30501960 

30501970 

30501980 

S0501990 

30502000 

30502010 

30502020 

30502030 

30502040 

305020 50 



PROG ID 
PAGE. 



0671 1 6F0O 0850 

0673 6700 03E8 

0675 1 6F00 0854 

0677 1 4400 0792 

0679 I 4400 05F2 



067B 

067D 

06 7E 

06 7F 

0681 

0683 

0684 

06R6 

0687 

0689 

06 8B 

06 8 D 

068F 

0691 

0693 

0695 

0697 

0699 

069A 

069C 

069E 

06A0 

06A2 

06A4 

06A5 



1 4400 
6328 
6B2C 

6700 

1 6F00 

6364 

1 6F00 

6332 

1 6F00 
1 6500 
1 6D00 
1 4400 
1 7401 

6700 

1 6F00 
1 6F00 
1 6FO0 

6319 

1 6F00 
1 6F00 

6 700 

1 6F00 
1 6F00 

6305 

1 6F00 



07DF 



00C8 
084E 

0856 

0852 
08 E9 
0874 
0792 
0874 
01F4 
085C 
0358 
085A 

0850 
0854 
03E8 
084E 
0852 

0875 



06A7 

06A8 

06AA 

06AC 

ObAE 

06B0 

06 B 2 

06B4 

06B5 

06B7 

06 B 9 

06BA 

06BC 

06 BE 

06BF 

06C1 

06C3 

06C4 

06CA 

06C7 

06 C 9 

06CB 

C6CD 

06CE 

0600 

0602 

0604 

06D6 

06D3 

06DA 

06DB 



6302 

1 6F00 

6700 

1 6F00 
1 4400 
1 74FF 
1 74FF 

70F9 

1 7402 
1 74FF 

70F0 

1 749C 
1 749C 

1000 

1 749C 
1 749C 

1000 

1 74F8 

loao 

1 4400 
1 74F7 
1 74FF 

70D9 
740A 
6 700 
6F0O 
6F00 
4400 

1 7401 

6302 

1 6FO0 



0876 
0028 
0860 
0792 
0874 
036D 

0874 
0376 

084E 
084E 

0852 
0852 

06 A B 

0792 
3 74 
0375 

3 74 
0JE8 
084E 
0850 
0792 
0374 

0876 



***** 

***** 

***** 

* 

RT3 



STX L3 S 

LDX L3 1000 

STX L3 WW 

RSI L DISP 

BSI L CNTRL 



CALL DISPATCH RTNE SC 
RETURN TO CONTROL RTN 



♦ ♦♦♦♦♦♦i*******************,***,,^^^ 
ROUTINE 3- SWING TEST ********* 



* 
SWNG1 

SWNG2 

SWNG3 



KEEP 



BSI 

LDX 

STX 

LDX 

STX 

LDX 

STX 

LDX 

STX 

LDX 

STX 

BSI 

MDX 

LDX 

STX 

STX 

STX 

LDX 

STX 

STX 

LDX 

STX 

STX 

LDX 

STX 

LDX 
STX 

LDX 

STX 

BSI 

MDX 

MDX 

MDX 

MDX 

MDX 

MDX 

MDX 

MDX 

NOP 

MDX 

MDX 

NOP 

MDX 

NOP 

BSI 

MDX 

MDX 

MOX 

MOX 

LDX 

STX 

STX 

BSI 

MDX 

LDX 

STX 



3 
3 



READY 

40 

SWNG2E1 
L3 200 
L3 NN 

3 100 
L3 NE 
3 50 
L3 EE 
LI RT3ST 
LI LOOK 
L DISP 
L LOOK,! 
L3 500 
L3 NW 
L3 SE 
L3 SW 



SC 



LINE LENGTH MOOIFIED PROl 



LOAD ADDR STRING ADDR 
STO IN POINTER CTL WD 

BUMP INSTR ADDR PNTR 



SC 



3 
L3 



25 

S 

L3 WW 
L3 1000 
L3 NN 
L3 EE 

3 5 
L3 SQRCT 

3 2 

L3 TRICT 

L3 40 

L3 EXTRA 
DISP 
LOOK.-l 
EXTRA, -1 
SWNG3 
LOOK, 2 
TRICT, -1 
SWNG2 
NN.-100 
NN.-100 



INITIALIZE SQUARE CTR 



LINE LENGTH CTL 



CALL DISPATCH RTNE SC 
BACK UP ADDR POINTER 

PLT NXT LINE SEGMENT 



L EE.-100 
L EF.-100 



SWNG2&1.-8 ADJUST LINE LENGTH 
MDX WILL HOP THIS 
CALL DISPATCH RTNE 



L OISP 

L LOOK, -9 

L SQRCT, -1 

SWNG1 
L LOOK, 10 
L3 1000 
L3 NN 
L3 S 
L DISP 
L LOOK.l 
3 2 



REDUCE SQUARE CTR 

RE-INITIALIZE 

HUMP INSTR ADDR PNTR 



CALL DISPATCH RTNE 
BUMP INSTR ADDR PNTR 



L3 TRICT 
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30502060 
30502070 
30502080 
30502090 
30502100 
30502110 
30502120 
30502130 
30502140 
30502150 
30502160 
30502170 
30502180 
30502190 
30502200 
30502210 
30502220 
30502230 
30502240 
30502250 
30502260 
30502270 
30 502280 
30502290 
30502300 
30502310 
30502320 
30502330 
30502340 
30502350 
30502360 
30502370 
30502380 
30502390 
30502400 
30502410 
30502420 
30502430 
30502440 
PMOl 30502450 
30502460 
30502470 
30502480 
30502490 
30502500 
30502510 
30502520 
30502530 
30502540 
30502550 
30502560 
30502570 
30502580 
30502590 
30502600 
30502610 
30502620 
30502630 
30 502640 
30502650 
30502660 
30502670 
30502680 
30502690 
30502700 
30502710 
30502720 
30502730 
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PART NO. 
PAGE 



2191236 
3A 



06D0 





6319 




06DE 


1 


6F00 


085C 


06 EO 


1 


6F00 


0856 


06E2 





6314 




06E3 


1 


6F00 


086D 


06E5 


1 


4400 


0792 


06E7 


1 


74FF 


0874 


06E9 


1 


74FF 


086D 


06EB 





70F9 




06EC 


1 


7402 


0874 


06EE 


1 


74FF 


0876 


06F0 





70F1 





06F1 I 4400 05F2 



06F3 


1 


4400 


07DF 


06F5 





6700 


015F 


06F7 


1 


6F00 


0856 


06 F9 


1 


6F00 


084E 


06FB 


1 


6700 


0906 


06FD 


1 


6F00 


0874 


06FF 


1 


4400 


0792 


0701 


1 


7401 


0874 


0703 





62F1 




0704 


1 


C400 


086F 


0706 


1 


0600 


085D 


0708 





7202 




0709 





70FC 




07 OA 


1 


6700 


0856 


070C 





4019 




070D 


1 


6700 


0858 


070F 





4016 




0710 


1 


6700 


085A 


0712 





4013 




0713 


1 


6700 


085C 


0715 





4010 




0716 





6700 


00C8 


0718 


1 


6F00 


085C 


07 1A 


1 


6F00 


0856 


071C 


1 


6F00 


0858 


Q71E 


1 


6F00 


085A 


0720 


1 


7401 


0874 


0722 


-4- 


4400 


0792 



LDX 3 25 

STX L3 NW 

STX L3 NE 
OLO LDX 3 20 

STX L3 EXTRA 

SWNG4 BSI L OISP CALL DISPATCH RTNE SC 

MDX L L00K.-1 

MDX L EXTRA, -1 

MOX SWNG4 
* 

MOX L LOOK ,2 

MOX L TRICT, -1 
MOX OLD 

BSI L CNTRL RETURN TO CONTROL RTN 

******************************************** 

***** ROUTINE 4- WINDMILL DESIGN **** 

******************************************** 

* 

RT4 BSI L READY CHECK STATUS SC 

LDX L3 351 SET COUNT 

STX L3 NE 

STX L3 NN 

LOX L3 RT4ST LD RT4 CMD STRNG ADDR 

STX L3 LOOK 

BSI L DISP CALL DISPATCH RTNE SC 

MOX L LOOK.l BUMP INSTR ADDR PNTR 

LDX 2 -15 

LD L K0002 MOVE COUNT 

WMIL1 STO L2 NN615 STORE MOVE COUNT 

MDX 2 2 

MDX MMIL1 FINISH LOADING COUNT 

LDX L3 NE 

BSI TCNTL 
* 

LDX L3 SE 

BSI TCNTL 
* 

LDX L3 SW 
BSI TCNTL 

* 

LDX L3 NW 
BSI TCNTL 

* 

LDX L3 200 

STX L3 NW 

STX L3 NE 

STX L3 SE 

STX L3 SW 

MDX L LOOK.l BUMP INSTR ADDR PNTR 
* 
B54 L D^SP DRAW SQUA R E SG^ 

BSI L CNTRL RETURN TO CONTROL RTN 

• 

***** TRIANGLE CONTROL ************** 

* 

* 

TCNTL OC *-* SE 

STX 3 CHG1C1 

STX 3 CHG2S1 

STX 3 CHG3C1 

LDX 3 5 START TRIANGLE ONE 

STX L3 TRICT TRIANGLE COUNT 

* 

RUN LOX L3 86 START TRIANGLE 

STX L3 EXTRA 



15N0V69 
571063 



30502740 
30502750 
30502760 
30502770 
30502780 
30502790 
30502800 
30502810 
30502820 
30502830 
30502840 
30502850 
30502860 
30502870 
30502880 
30502890 
30502900 
30502910 
30502920 
30502930 
30502940 
30502950 
30502960 
30 502970 
30502980 
30502990 
30503000 
30503010 
30503020 
30503030 
30503040 
30503050 
30503060 
30503070 
30503080 
30503090 
30503100 
30503110 
30503120 
30503130 
30503140 
30 503150 
30503160 
30503170 
30 503180 
30503190 
30503200 
30503210 
30503220 
30503230 
30503240 
305032 50 
30503260 













* 












30503420 






0731 


I 


4400 


0792 


SIDE1 


BSI 


L 


DISP 


PLOT SIDE ONE 


SC 


30503430 






0733 


1 


74FE 


0874 




MDX 


L 


LOOK ,-2 






30503440 






0735 


1 


74FF 


086D 




MDX 


L 


EXTRA.-l 






30503450 






0737 





70F9 




* 


MOX 




SIDE1 






30503460 
30503470 






0738 


I 


7403 


0874 




MDX 


L 


LOOK, 3 






30503480 






073 a 





6700 


002B 




LDX 


L3 


43 






30503490 






073C 


1 


6F00 


086D 


* 


STX 


L3 


EXTRA 






30503500 
30503510 






073E 





4053 




SIDE2 


BSI 




DISP 


PLOT SIDE TWO 


SC 


30503520 






073F 


1 


74FE 


0874 




MOX 


L 


LOOK, -2 






30503530 






0741 


1 


74FF 


086D 




MDX 


L 


EXTRA.-l 






30503540 






0743 





70FA 




* 


MDX 




SIDE2 






30503550 
30503560 






0744 


1 


7403 


0874 




MDX 


L 


LOOK, 3 






30503570 






0746 





6700 


0056 




LDX 


L3 


86 






30503580 






0748 


1 


6F00 


086D 


* 


STX 


L3 


EXTRA 






30503590 
30503600 






074A 





4047 




SIDE3 


BSI 




DISP 


PLOT SIDE THREE 


SC 


30503610 






074B 


1 


74FD 


0874 




MOX 


L 


LOOK, -3 






30503620 






0740 


1 


74FF 


0860 




MDX 


L 


EXTRA.-l 






30503630 






074F 





70FA 




* 


MDX 




SIDE3 






30503640 
30503650 






0750 


1 


7430 


0856 


CHG1 


MDX 


L 


NE.48 






30503660 






0752 


1 


7404 


0874 




MDX 


L 


LOOK, 4 






30503670 






0754 


1 


74FF 


0876 




MDX 


L 


TRICT, -1 


TRIANGLE COUNT 




30503680 






0756 





7006 




* 


MDX 




TOP 






30503690 
30503700 






0757 


1 


74D0 


0856 


CHG2 


MDX 


L 


NE.-48 






30503710 






0759 


1 


7403 


0874 




MDX 


L 


LOOK, 3 






30503720 






075B 


1 


4C80 


0726 


* 


BSC 


I 


TCNTL 




SX 


30503730 
30503740 






075D 





4034 




TOP 


BSI 




DISP 




SC 


30503750 






075E 


1 


74D0 


0856 


CHG3 


MDX 


L 


NE,-48 






30503760 






0760 


1 


74F3 


0874 




MDX 


L 


LOOK, -13 






30503770 






0762 





70CA 




* 


MDX 




RUN 


00 ANOTHER TRIANGLE 




30503780 
30503790 














*********************************************** 


30503800 














***** 






ROUTINE 5- 


MANUAL CONTROL 




30503810 














*********************************************** 


30503820 














* 












30503830 






0763 





4480 


0163 


RT5 


BSI 


I 


LOG 


, TYPE SET SWS MSG 




30503840 






0765 


1 


078D 






DC 




SWMSG 


TABLE ADDRESS 




30503850 






0766 


1 


6700 


094B 


RT5E 


LOX 


L3 


RT5ST 


PLACE CNTR ADDR IN 




30503860 






0768 


1 


6F00 


0874 




STX 


L3 


LOOK 


0/P ROUTINE 




30503870 






076A 


1 


7400 


078C 




MDX 


L 


RT5SW.0 


SKIP IF FIRST ENTRY 




30503880 






076C 





7013 




* 


MDX 




RT5C 


8R IF 2ND ENTRY 




30503890 
30503900 






0760 





081C 




RT5A 


XIO 




SWCOM 


READ CONS SWS 




30503910 






076E 





C010 






LD 




RT5SW 






30503920 






076F 





1801 






SRA 




1 


CHECK BIT 14 




30503930 






0770 


o 


/, so'i 






BSC 




c 


Cif in If fcinT nut 




Trt ^ mo 4. (\ 






0771 





7001 






MDX 




RT5B 


^^ 1 r rr Pro 1 fcrrl 

BR IF SW 14 ON 




30503950 




t 


772 





7007 




* 


MDX 




RT50 


BR IF NOT ON 




30503960 
30503970 






0773 





1809 




RT5B 


SRA 




9 


CLEAR LOWER COMND 




30503980 






0774 





100A 






SLA 




10 


SHIFT COMND TO HIGH 


ORDER 


30503990 






0775 


1 


0400 


0365 




STO 


L 


SBSW2 


STORE COMND 




30504000 






0777 


1 


4420 


0792 




BSI 


L 


DISP.Z 


GO TO DISPATCH 




30504010 






0779 





70EC 




* 


MDX 




RT5E 






30504020 
30504030 






077A 


I 


6700 


0760 


RT5D 


LOX 


L3 


RT5A 


RETURN POINT 




30504040 






-077C 


1 


6F00 


05E6 




STX 


L3 


MLSCF61 






30504050 






077E 


1 


4C00 


0789 




BSC 


L 


WAIT4 


CHK SW1 AND GO TO MON 


30504060 














* 












30504070 






0780 





COOB 




RT5C 


LD 




RT5SW 


LOAD SW ENTRY 




30504080 






0781 





1802 






SRA 




2 


CLEAR BITS 14 AND 15 




30504090 




DATE 


02JAN66 15N0V66 


15N0V69 










PROG ID 


0305-2 


EC NO. 


415490 


1 419643 


571063 










PAGE 


3A 



0724 1 4400 05F2 



0726 0000 

0727 6B29 

0728 6B2F 

0729 6B35 
072A 6305 
072B 1 6F00 0876 

0720 6700 0056 
072F 1 6F00 086D 



O&TE 
EC NO. 



02JAN66 
415490 



15N0V66 
419643 



30503270 
30503280 
30503290 
30 503300 
30503310 
30503320 
30503330 
30503340 
30 50 33 50 
30503360 
30503370 
30503380 
30503390 
30503400 
30503410 
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PAGE 
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0782 





100A 


0783 


1 


D400 0865 


0785 





6300 


0786 





6B05 


0787 


1 


4420 0792 


0789 





70DC 


078A 




0000 


078A 


1 


078C 


078B 





3A00 


078C 





0000 


0780 





0001 


078E 





0000 


078F 





0000 


0790 


1 


0967 


0791 





0000 



0792 0000 

0793 1 6580 0874 
0795 CD80 0000 
0797 1 DCOO 086A 

0799 1 4C98 0792 
079B 4043 

079C 1 OCOO 0868 

079E 1 OCOO 0866 

07A0 1 0400 0836 



07A2 6500 1000 
07A4 6939 

07A5 1 6500 07AE 
07A7 1 7400 05E6 
07A9 700F 

07AA 1 6000 05E5 
07AC I 4400 07FE 

07AE I 74FF 070E 
07B0 70F4 

07B1 1 C400 0836 
07R3 1 F400 0837 
07B5 1 4420 0813 

07R7 1 4C00 0H1A 

07B9 1 C40C 05E0 
07RB 1 4C08 07C1 
07B0 1 9400 05DD 
07BF 1 4420 05F2 
07C1 1 4400 07FF 
07C3 1 4C80 05E6 



SLA 
STO 
LDX 
STX 
BSI 
MOX 



10 

SBSW2 



RT5SW 

OISP.Z 

RT5E 



SHIFT COMND TO HIGH ORDER 
STORE COMNO 

CLEAR SW FOR NEXT ENTRY 
GO TO DISPATCH 



BSS E 

SWCOM DC RT5SH 

DC /3AO0 

RT5SW DC *-* 

SWMSG DC 1 

DC 

DC' 

DC ASETS 

DC 
* 

******************************«*t*m^ # m^ 

***** DISPATCH CONTROL ************* 
************************************»mm, # ^ 



READ CONS SW IOCC 

SWITCH SETTING 
MSG NO 



ALPHA MESSAGE ADDR 



DISP 
NEXT 



PLOT 



DC 
LDX 
LDD 
STD 

8SC 
BSI 
XIO 
XIO 
STO 



II 
II 

L 



*-* 
LOOK 

COUNT 

DISP,£- 
READY 
MARK 
SENSE 

BDSW 



RETURN ADDR SE 

RESTORE XR 1 

GET COUNT £ DIRECTION 



RETRN TO PROG ON ZERO SX 

MOVE COMMAND 
SENSE DSW 
SAVE ERROR DSW 



*********************************„, M ,* i m,^„ # 

* INTERRUPT WAIT ROUTINE 
******************************************** 

* THIS SUBROUTINE WAITS FOR INTERRUPT. 

* WHEN THE INTERRUPT IS RECEIVED IT WILL 

* CHECK THE ROUTINE SELECTION SWITCH. 

* IF A NEW ROUTINE HAS BEEN SELECTED IT 

* WILL BRANCH TO THE CONTROL ROUTINE. 

WAIT LDX LI /1000 
STX 1 WCNT 



* 
WAIT1 



SET INTERRUPT 
WAIT CNT 



LDX 

MDX 
MDX 



WAIT2 STX 
BSI 

* 

WAIT3 MDX 

MDX 



LD 

FOR 

BSI 

RSC 

LD 

RSC 

S 

BSI 

RSI 

BSC 



LI 
L 



LI 
L 



WAIT3 

MLSCFS1.0 

WAIT4 

MLSCF 
CKLK 



* 
WAIT4 



WAIT5 



WCNT.-1 
WAIT1 

BDSW 

BDSW61 

ERR2.Z 

ERR3 

SW1 

WAIT5,£ 

RID 

CNTRL.Z 

CKLK 

MLSCF61 



CHECK FOR INTR 

BR IF INTERRUPT OCCURED 

SET RETURN ADDRESS 
CHECK LOCK-OUT 

DECREMENT WAIT CNT 



CK BUSY DSW 

CHFCK AGAINST EXPECTED 



PRINT NO INTRPT MSG 



BCH NO RTN SELECTED 

CK FOR NEW ROUTINE 

BR IF NEW RTN 

CHECK LOCK-OUT 

CONTINUE WITHOUT MONITOR 



30504100 

30504110 

30504120 

30504130 

30 504140 

30504150 

30504160 

30504170 

30 504180 

30 504190 

30504200 

30504210 

30504220 

30504230 

30504240 

30504250 

30504260 

30504270 

30 504280 

30504290 

30504300 

30504310 

30504320 

30 504330 

30504340 

30 504350 

30504360 

30504370 

30504380 

30504390 

30504400 

30 504410 

30504420 

30504430 

30504440 

30504450 

30504460 

30504470 

30504480 

30504490 

30504500 

30504510 

30 504520 

30504530 

30504540 

30504550 

30504560 

30504570 

30 5045 80 

30504590 

30504600 

30504610 

30504620 

30504630 

30504640 

30504650 

30504660 

30504670 

30 5046 80 

JO 504690 

30504700 

30504710 

30504720 

30 50 47 30 

30504740 

30 504750 

30504760 

30504770 



07C5 C070 
07C6 F070 
07C7 1 4420 0313 

07C9 C06E 
07CA F06E 
07CB 1 4C20 031E 

07CD 1 6580 050D 
07CF 71FC 
07D0 7095 

07D1 1 C400 05DF 

07D3 EC80 0166 

07D5 100A 

07D6 1 4C2 8 079B 

07D8 1 74FF 086A 
07DA 70C0 
07DB 1 7401 0874 
07DD 70B5 



07DE 0000 



070F 0000 
07E0 1 OCOO 0866 
07E2 D051 
07E3 1 4C98 07DF 
07E5 1 7400 0812 
07E7 70F8 
07E8 C85D 
07E9 6101 
07EA p 6203 
07EB 4037 

07EC 6500 7000 
07EE 69EF 

07EF 1 OCOO 0866 
07F1 1 4C98 07DF 
07F3 1 6500 07EF 

07F5 1 74FF 07DE 
07F7 7001 
07F8 70E7 

07F9 1 6D00 05E6 
07FB 1 4400 07FE 
07FD 70F1 



CONT 



LD BDSW 
EOR BDSWC1 
BSI L ERR2.Z 



* 
C0NT1 



LD 

EOR 
BSC 

LDX 

MDX 
MDX 



C0NT2 LD 
OR 
SLA 
BSC 

* 

MDX 
MDX 
MDX 
MOX 

* 

* 

WCNT DC 

********** 

***** 

********** 

* 

READY DC 
XIO 
STO 
BSC 
MDX 
MDX 
LDD 
LDX 
LDX 
BSI 



IDSW 
I0SWE1 
L ERR4.Z 

II RID 
1 -4 
RT5E 

L SWO 
I ERLCK 

10 

PL0T.6Z 



COUNT, -I 
PLOT 
L00K,1 
NEXT 



*-* 



CK BUSY DSW 

CK INTERRUPT DSW 

CK FOR RTN 5 

BR IF RTN 5 

LD SWO 

COMB WITH MONITOR SWO 

CHECH LOCK SW 

LOOP ON FUNC IF BR 

REDUCE COUNT 

BUMP INSTR ADDR PNTR 

WAIT COUNT STORED HERE 



************ *************** ++##% ^ <c 

CHECK READY ****************** 
♦ ♦♦♦♦♦♦M********************,,,^* 



*-* 

SENSE 

DSW 

READY, £- 

IKSW.O 

READYE1 

MSG1 

1 

3 

ELOG 



SE 



* 
NOT 



LDX 
STX 

XIO 
BSC 
LDX 

MDX 
MDX 
MOX 



LI /7000 
1 WCNT 

L SENSE 
I READY ,£- 
LI NOT 

L WCNT.,-1 
N0T1 
REA0Y£1 



RETURN ADDR 

SENSE DSW 

SAVE DSW 

RETURN IF READY 

IS LOCK-OUT MON SW SET 

* YES 



PRINT ERROR MSG 



SENSE DSW 

RETURN TO PROG ON SX 

GET MLSCF 



* 
N0T1 



REPRINT MSG 



07FE 0000 
07FF 1 7400 0812 
0801 7009 



STX 
BSI 
MDX 
********** 

* 

* 

* 

* 

* 

* 

* 

* 

* 

********** 

CKLK DC 
MDX 
MDX 



LI MLSCF61 
L CKLK 
NOT 
****** ******* s************^*!,**^^ 



SET MLSCF 
CHECK LOCK-OUT 



CHECK LOCK-OUT OF MONITOR 

IF BIT 15 OF FUNCTION 2 IS SET 
MONITOR WILL BE BYPASSED TO CAUSE THE 
PROGRAM TO ISSUE XIO COMMANDS AS 
FAST AS POSSIBLE TO FIND A SLOW OR 
RINDING PLOTTER 

*********************************** 
*-* RTN ENTRY 
L LKSW,0 IS LOCK-OUT SW SET 
CKLK4 * YES 



30504780 

30504790 

30504800 

30504810 

30504820 

30504830 

30504840 

30504850 

30 504860 

30504870 

30 504880 

30504890 

30504900 

30504910 

30504920 

30504930 

30504940 

30 504950 

30504960 

30504970 

30504980 

30504990 

30505000 

30505010 

30505020 

30505030 

30505040 

30505050 

30505060 

30505070 

30505080 

30505090 

30505100 

30505110 

30505120 

30505130 

30 505140 

30505150 

30505160 

30505170 

30505180 

30505190 

30505200 

30505210 

30505220 

3050 5230 

30505240 

30505250 

30505260 

30505270 

30505280 

30505290 

30505300 

30505310 

30505320 

30505330 

30505340 

30505350 

30505360 

30505370 

30505380 

30505390 

30505400 

30505410 

30505420 

30505430 

30505440 

30505450 



DATE 
EC NO. 



02JAN66 
415490 



15N0V66 
419643 



15N0V69 
571063 



PROG ID 
PAGE 



0305-2 
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0802 


1 


C4O0 


05E1 




LO 


L 


SW2 


0804 





4804 






BSC 




E 


0805 





7002 






MDX 




CKLK2 


0806 





4480 


0161 


CKLKl 
CKLK2 


BSI 


1 


START 


0808 





6809 




STX 




LKSW 


0809 


1 


4C80 


07FE 


CKLK3 

* 

CKLK4 


BSC 


I 


CKLK 


080B 


1 


C400 


05E1 


LD 


L 


SW2 


080D 





4804 






BSC 




E 


080E 





70FA 






MDX 




CKLK3 


080F 





1010 






SLA 




16 


0810 





D001 






STQ 




LKSW 


0811 





70F4 






MDX 




CKLKl 



GET FUNCTION 2 AND CHECK 
IS LOCK-OUT SET 

* YES 

* NO, GO TO MONITOR 

SET LOCK-OUT SWITCH 
RTN EXIT TO PROGRAM 

GET FUNCTION 2 TO CHECK 
IS LOCK-OUT SW OFF 

* NO 

CLEAR ACC AND 

* LOCK SWITCH 

* YES 



0812 0000 



NON-ZERO, LOCK OUT MON 



* 

LKSW DC *-* 

* 

******************************************** 

***** ERROR MESSAGE SETUP ********* 

******************************************** 

* 

SET UP BUSY DSW ERR MSG 



0813 





0000 


ERR2 


DC 




*-* 


0814 





6102 




LDX 


1 


2 


0815 





62 OC 




LOX 


2 


/OOOC 


0816 





C831 




LDD 




MSG2 


0817 





400B 




BSI 




ELOG 


0818 


1 


4C80 0813 


£ 


BSC 


I 


ERR2 


081A 





6103 


ERR 3 


LDX 


I 


3 


081B 





6201 




LDX 


2 


/oooi 


081C 





C82D 




LDD 




MSG3 


0810 





7003 


♦ 


MDX 




ERRX 


081E 





6104 


ERR4 


LDX 


1 


4 


081F 





6230 




LOX 


2 


/0030 


0820 





C82B 




LDD 




MSG4 


0821 





4001 


ERRX 


BSI 




ELOG 


0822 





70AA 




MDX 




C0NT1 



SET UP NO INTRPT ER MSG 



SET UP INTRPT 0SW ER MSG 



* 
* 
******************************************** 

* ERROR MESSAGE ROUTINE 
******************************************** 

* THIS ROUTINE PRINTS ALL THE ERROR MESSAGES. 

* UPON ENTRY THE MSG NO. MUST BE SET IN XRl, 

* THE DATA ID IN XR2, AND THE ALPHA ADDRS IN 

* THE ACCUM AND EXT. 

* 

* 



0823 
0824 

0825 



0R29 
082A 



0000 

690 A 

6A0R 
0326 D80B 
0827 4480 0162 

082F 

079 B 



082B 1 4C80 0823 



082E 




0001 


082F 





0000 


0830 





0000 


0831 





0000 


0832 





0000 


0833 





oooo 


0834 





0000 


0835 





0000 



ELOG 



LOOP 

* 
* 

EMSG 



* 
DSW 



DC 

STX 

STX 

STD 
BSI 

DC 
DC 
BSC 



*-* 

EMSG 

EMSG62 

EMSG63 

ERROR 

EMSG 

PLOT 

ELOG 



SFT MSG NUMBER 
SET DATA ID 
SET ALPHA ADDRS 
PRINT ERROR MSG 

LOOP ADDRS 
RETURN 



ERROR MESSAGE TABLE 
BSS E 1 



OC 
OC 
DC 
OC 

DC 

DC 
DC 



*-* 

/OOOO 

*-* 
*-* 
*-* 

*-* 

/oooo 



MESSAGE NUMBER 
HEX/OEC SW 
DATA I/D 
ALPHA ADDRS 1 
ALPHA ADDRS2 

OSW WAS 
OSW S/B 



30505460 
30505470 
30505480 
30505490 
30505500 
30505510 
30505520 
30505530 
30505540 
30505550 
30505560 
30505570 
30505580 
30505590 
30505600 
30505610 
30505620 
30505630 
30505640 
30505650 
30505660 
30505670 
30505680 
30505690 
30505700 
30505710 
30505720 
30505730 
30505740 
30505750 
30505760 
30505770 
30505780 
30505790 
30505800 
30505810 
30505820 
30505830 
30505840 
30505850 
30505860 
30505870 
30505880 
30505890 
30505900 
30505910 
30505920 
30505930 
30505940 
30505950 
30505960 
30505970 
30505980 
30505990 
30506000 
30506010 
30506020 
30506030 
30506040 
30506050 
30506060 
30506070 
30506080 
30506090 
30506100 
30506110 
30506120 
30506130 



0836 





0000 


BDSW 


DC 




*-* 


BUSY DSW WAS 


30506140 


0837 





0002 




DC 




/0002 


BUSY DSW S/B 


30506150 


0833 





0000 


IDSW 


OC 




*-* 


INTERRUPT DSW WAS 


30506160 


0839 





8000 


* 


DC 




/8000 


INTERRUPT DSW S/B 


30506170 
30506180 








**********************************,■,******** + 


30506190 








***** 






INTERRUPT 


ROUTINE ************ 


30506200 








******************************************** 


30506210 








• 










30506220 


083A 





0000 


RECEV 


DC 




*-* 


RETURN ADDR SE 


30506230 


08 3 B 


I 


OCOO 0866 




XIO 


L 


SENSE 


SENSE DSW 


30506240 


0830 





1000 




NOP 






USE FOR TRAP 


30506250 


083E 





D0F9 




STO 




IDSW 


SAVE DSW ERROR BITS 


30506260 


083F 


1 


6700 07C5 




LDX 


L3 


CONT 




30506270 


0841 


1 


6F00 05E6 




STX 


L3 


MLSCF61 




30 506280 


0843 


I 


4C80 083A 


* 


BSC 


I 


RECEV 


RETURN TO MONITOR SX 


30506290 
30506300 








********************************************* 


30506310 








***** 






STORAGE AREA ****************** 


30506320 








******************************************** 


30506330 








* 










30506340 


0846 




0000 




BSS 


E 







30506350 


0846 


1 


094D 


MSG1 


DC 




AMSB 




30506360 


0847 


1 


0953 




DC 




ADSW 




30506370 


0848 


1 


094 D 


MSG2 


DC 




AWSB 




30506380 


0849 


1 


0962 




DC 




ABOSW 




30506390 


084A 


1 


0953 


MSG3 


DC 




ADSW 




30506400 


084B 


1 


0956 




DC 




AN I NT 




30506410 


084C 


1 


094D 


MSG4 


DC 




AWSB 




30 506420 


084D 


1 


095C 




DC 




AIOSW 




30506430 


084E 





0000 


NN 


DC 




/OOOO 


MOVE COUNT 


30506440 


084F 





4000 




DC 




/4000 


DIRECTION 


30506450 


0850 





0000 


S 


DC 




/OOOO 




30506460 


0851 





2000 




DC 




/2000 




30506470 


0852 





0000 


EE 


DC 




/OOOO 




30506480 


0853 





1000 




DC 




/1000 




30506490 


0854 





0000 


WW 


DC 




/OOOO 




30506500 


0855 





0800 




DC 




/0800 




30506510 


0856 





0000 


NE 


DC 




/OOOO 




30506520 


0857 





5000 




DC 




/5000 




30506530 


0858 





0000 


SE 


DC 




/OOOO 




30506540 


0859 





3000 




DC 




/3030 




30506550 


085A 





0000 


SW 


DC 




/OOOO 




30506560 


0R5B 





2800 




DC 




/2800 




30506570 


085C 





0000 


NW 


DC 




/OOOO 




30506580 


085D 





4800 




OC 




/4800 




30506590 


085E 





0001 


PENUP 


DC 




/OOOI 




30506600 


085F 





0400 




DC 




/0400 




30506610 


0860 





0001 


PENDW 


DC 




/OOOI 




30506620 


0861 





8000 




DC 




/8000 




30506630 


0862 





044C 


LEFT 


DC 




1100 




30506640 


0863 





0800 




DC 




/0800 




30506650 


0864 





1100 


BSWCT 


DC 




/1100 


CMD EXECUTE CNTR 


30506660 


0865 





0000 


SBSW2 


DC 




*-* 


PLOT CMD STORAGE. 


30506670 


0866 





0000 


SENSE 


DC 




/oooo 


SENSE DSW 6 RESET 


30506680 


0867 





2F01 


* 


OC 




/2F01 




30506690 
30506700 


C868 


1 


086B 


MARK 


OC 




COMAD 


DIRECTION COMMAND 


30506710 


0369 





2900 




DC 




/2900 




30506720 


086A 





0000 


COUNT 


DC 




/OOOO 




30506730 


086B 





0000 


COMAO 


DC 




/OOOO 


, 


30506740 


086C 





0000 


CONST 


OC 




/OOOO 




30506750 


0860 





0000 


EXTRA 


DC 




/OOOO 




30506760 


086E 





0000 


KOOOO 


DC 




/OOOO 


ZERO CONSTANT 


30506770 


0R6F 





0002 


K0002 


DC 




/0002 




30506780 


0870 





0007 


K0007 


DC 




/0007 




30506790 


0871 





0096 


K0150 


DC 




150 


CONSTANT 


30506800 


0872 





BFFC 


K4003 


DC 




/BFFC 


CONSTANT 


30506810 



DATE 
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0873 





8000 


K8000 DC 


/8000 




30506820 


0874 





0000 


LOOK DC 


/OOOO 


START OF STRING 


30506830 


0875 





0000 


SQRCT OC 


/OOOO 




30506840 


08 76 





0000 


TRICT OC 

* 
* 


/OOO 


TRIANGLE COUNT 


30506850 
30506860 
30506870 


0977 


1 


085E 


RT1ST DC 


PENUP 




30506880 


0878 


1 


0862 


DC 


LEFT 




30506890 


0879 


1 


0856 


DC 


NE 




30506900 


087 A 


1 


0860 


DC 


PENDW 


START OCTAGON NO. 1 


30506910 


087B 


1 


084E 


DC 


NN 


1A 


30506920 


087C 


1 


085 E 


OC 


PENUP 




30506930 


087D 


1 


0852 


DC 


EE 




30506940 


087E 


1 


0856 


DC 


NE 




30506950 


087F 


1 


0860 


DC 


PENOW 




30506960 


0880 


1 


0858 


DC 


SE 


2A 


30506970 


0881 


1 


085E 


DC 


PENUP 




30506980 


0882 


1 


085A 


DC 


SM 




30506990 


0883 


1 


0850 


DC 


S 




30507000 


0884 


1 


0860 


DC 


PENDW 




30507010 


0885 


1 


0854 


DC 


WW 


3A 


30507020 


0886 


1 


085E 


DC 


PENUP 




30507030 


0887 


1 


084E 


DC 


NN 




30507040 


0888 


1 


085C 


DC 


NW 




30507050 


0889 


1 


0860 


DC 


PENDW 




30507060 


088A 


1 


0856 


DC 


NE 


4A 


30507070 


0888 


1 


085E 


DC 


PENUP 




30507080 


088C 


1 


0853 


DC 


SE 




30507090 


088D 


1 


0852 


DC 


EE 




30507100 


088E 


1 


0860 


DC 


PENDW 




30507110 


088F 


1 


0850 


DC 


S 


5A 


30507120 


0890 


1 


085E 


DC 


PENUP 




30507130 


0891 


1 


0854 


DC 


WW 




30507140 


0892 


1 


085A 


DC 


SW 




30507150 


0893 


1 


0860 


DC 


PENDW 




30507160 


0894 


1 


085C 


DC 


NW 


6A 


30507170 


0895 


1 


085E 


DC 


PENUP 




30507180 


0896 


1 


0856 


DC 


NE 




30507190 


0897 


1 


084E 


DC 


NN 




30507200 


0898 


1 


0860 


DC 


PENDW 




30507210 


0899 


1 


0852 


DC 


EE 


7A 


30507220 


089A 


1 


085E 


DC 


PENUP 




30507230 


089B 


1 


0850 


DC 


S 




30507240 


089C 


1 


0858 


DC 


SE 




30507250 


089D 


1 


0860 


DC 


PENDW 




30507260 


089E 


1 


085A 


DC 


SW 


8A 


30507270 


089F 


1 


085E 


DC 


PENUP 




30507280 


08A0 


1 


0852 


DC 


EE 




30507290 


08A1 


1 


086E 


DC 


KOOOO 




30507300 


08A2 


1 


0852 


DC 


EE 




30507310 


08A3 


1 


0860 


DC 


PENDW 


START OCTAGON NO. 2 


30507320 


08A4 


1 


0852 


DC 


EE 


IB 


30507330 


08A5 


1 


085E 


DC 


PENUP 




30507340 


08A6 


1 


084E 


DC 


NN 




30507350 


08A7 


1 


0856 


DC 


NE 




30507360 


08A8 


1 


0860 


DC 


PENDW 


2B 


30507370 


08A9 


1 


085C 


DC 


NW 




30507380 


08AA 


1 


085E 


DC 


PENUP 




30507390 


08AB 


1 


085A 


DC 


SW 




30507400 


08AC 


1 


0854 


DC 


WW 




30507410 


08AD 


1 


0860 


DC 


PENDW 


3B 


30507420 


08AE 


1 


0850 


DC 


S 




30507430 


08AF 


1 


085F 


DC 


PENUP 




30507440 


08B0 


1 


0852 


DC 


EE 




30507450 


08B1 


1 


0858 


DC 


SE 




30507460 


08B2 


1 


0860 


DC 


PENDW 


4B 


30507470 


08B3 


1 


0856 


DC 


NE 




30507480 


08B4 


1 


085E 


DC 


PENUP 




30507490 
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08B5 


1 


085C 


DC 


NW 




30507500 






0SB6 


1 


084E 


DC 


NN 




30507510 






08B7 


1 


0860 


DC 


PENDW 


5B 


30507520 






08B8 


1 


0854 


DC 


WW 




30507530 






08B9 


1 


085E 


DC 


PENUP 




30507540 






08BA 


1 


0850 


DC 


S 




30507550 






08BB 


1 


085A 


OC 


SW 




30507560 






08BC 


1 


0860 


DC 


PFNOW 


6B 


30507570 






08BD 


1 


0858 


DC 


SE 




30507580 






08BE 


1 


085E 


DC 


PENUP 




30507590 






08BF 


1 


0856 


DC 


NE 




30507600 






OBCO 


1 


0852 


DC 


EE 




30507610 






08C1 


1 


0860 


DC 


PENOW 


7B 


30507620 






08C2 


1 


084E . 


DC 


NN 




30507630 






08C3 


1 


085E 


DC 


PENUP 




30507640 






08C4 


1 


0854 


DC 


WW 




30507650 






08C5 


1 


085C 


DC 


NW 




30507660 






08C6 


1 


0860 


DC 


PENDW 


8B 


30507670 






08C7 


1 


085A 


DC 


SW 




30507680 






08C8 


1 


085E 


DC 


PENUP 




30507690 






08C9 


I 


086E 


DC 

• ■ 


KOOOO 


END OF ROUTINE 


30507700 
30507710 






08CA 


1 


085E 


RT2ST DC 


PENUP 




30507720 






08CB 


1 


0862 


DC 


LEFT 


PUT PEN AT LEFT MARGIN 


30507730 






08CC 


1 


0856 


DC 


NE 


POSITION PEN FOR START 


30507740 






08CD 


1 


084E 


DC 


NN 




30507750 






08CE 


1 


0854 


DC 


WW 




30507760 






08CF 


1 


086E 


DC 


KOOOO 




30507770 






08D0 


1 


0860 


OC 


PENDW 




30507780 






080 1 


1 


085 2 


DC 


EE 


MOVE 10 INCHES EAST 


30507790 






08D2 


I 


085C 


DC 


NW 


PLOT SAWTOOTH PATTERN 


30507800 






08D3 


I 


085A 


DC 


SW 


FROM EAST TO WEST 


30507810 






08D4 


1 


086E 


DC 


KOOOO 


REPEAT FIVE TIMES 


30507820 






08D5 


1 


084E 


DC 


NN 




30507830 






08D6 


1 


0858 


DC 


SE 


PLOT SAWTOOTH PATTERN 


30507840 






0807 


1 


0856 


DC 


NE 


FROM WEST TO EAST 


30507850 






08D8 


1 


086E 


DC 


KOOOO 




30507860 






08D9 


1 


0850 


DC 


S 


PLOT PERPENDICULAR 


30507870 






08DA 


1 


085E 


DC 


PENUP 


LINES, JOINING THE 


30507880 






08DB 


1 


0854 


DC 


WW 


POINTS OF EACH 


30507890 






08DC 


1 


0860 


DC 


PENDW 


SAWTOOTH. 


30507900 






08DD 


1 


084E 


DC 


NN 




30507910 






08DE 


I 


085E 


DC 


PENUP 




30507920 






08DF 


1 


0854 


DC 


WW 




30507930 






08EO 


1 


0860 


DC 


PENDW 




30507940 






08E1 


1 


086F 


DC 


KOOOO 


RPT ABOVE SEO 10 TIMES 


30507950 






08E2 


1 


0852 


DC 


EE 


PLOT TOP OF PATTERN 


30 507960 






08E3 


I 


085 E 


DC 


PENUP 




30507970 






08E4 


1 


0850 


DC 


S 




30507980 






08E5 


1 


0860 


DC 


PENDW 




30507990 






08E6 


1 


0854 


. DC 


WW 


PLOT LINE THRU CENTER 


30508000 






00E7 


1 


085E 


DC 


PENUP 


OF PATTERN 


30508010 






08E8 


1 


086E 


DC 

* 


KOOOO 


END OF ROUTINE 


30508020 
30508030 






08E9 


1 


085E 


RT3ST DC 


PENUP 


RAISE PEN 


30508040 






08EA 


I 


0862 


DC 


LEFT 


PUT PEN AT LEFT MARGIN 


30508050 






08EB 


1 


0852 


DC 


EE 


POSITION PEN TO START 


30508060 






0«EC 


1 


084F 


l)C 


NN 


SWING TEST PATTERN. 


30508070 






oaeo 


1 


086E 


DC 


KOOOO 




3050B080 






OREE 


1 


0860 


DC 


PFNDW 




30508090 






08EF 


1 


084E 


DC 


NN 


PLOT LEFT SIDE OF SQ. 


30508100 






Q F0 


1 


0852 


DC 


FF 


PLOT TOP OF SQUARE. 


30508110 






08F1 


1 


0850 


DC 


s 


PLOT 1/4 INCH SEGMENT 


30508120 






08F2 


1 


086E 


DC 


KOOOO 




30508130 






08F3 


1 


0854 


DC 


WW 


PLOT 1/4 INCH SEGMENT 


30508140 






08F4 


1 


086E 


DC 


KOOOO 




30508150 






08F5 


1 


085E 


DC 


PENUP 


POSITION PEN FOR NEXT 


30508160 






08F6 


1 


0856 


OC 


NE 


SMALLER SQUARE. 


30508170 
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08F7 


1 


086E 


DC 


KOOOO 




30508180 


8FB 


1 


0860 


DC 


PENDW 


PLOT DIAGONAL LINES 


30508190 


0HF9 


1 


0858 


DC 


SE 


THRU THE SET OF 


30508200 


03FA 


1 


085F 


DC 


PENUP 


SQUARES AND FINISH 


30508210 


08FB 


1 


084F 


DC 


NN 


THE SWING TEST. 


30508220 


ORFC 


1 


0860 


DC 


PENDW 




30508230 


ORFO 


1 


085A 


DC 


sw 




30508240 


OBFE 


1 


086F 


DC 


KOOOO 




30508250 


08FF 


1 


085C 


DC 


NW 




30 508260 


09 


1 


086E 


DC 


KOOOO 




30508270 


0901 


I 


085F 


DC 


PENUP 




30508280 


090? 


1 


0850 


DC 


S 




30508290 


0903 


1 


0860 


DC 


PENDW 




30508300 


0904 


1 


0856 


DC 


NE 




30508310 


09 OS 


1 


086E 


DC 

* 


KOOOO 


END OF ROUTINE 3. 


30508320 
30508330 


0906 


1 


085E 


RT4ST DC 


PENUP 


PICK UP PEN AND PUT 


30508340 


0907 


I 


0862 


DC 


LEFT 


IT AT LEFT MARGIN. 


30508350 


0908 


1 


0856 


DC 


NE 


. 


30508360 


0909 


1 


084E 


DC 


NN 


POSITION PEN TO START 


30508370 


090A 


I 


084F 


DC 


NN 


WINDMILL PATTERN 


30508380 


09 OR 


1 


086E 


DC 


KOOOO 




30508390 


090C 


1 


0860 


DC 


PENDW 




30508400 


090D 


1 


085A 


DC 


SW 


SIDE 1 TRI 1 


30508410 


090E 


1 


085C 


DC 


NW 




30508420 


090F 


1 


086F 


DC 


KOOOO 




30508430 


0910 


1 


085C 


DC 


NW 


SIDE 2 TRI 1 


30508440 


0911 


1 


0856 


DC 


NE 




30508450 


0912 


1 


086E 


DC 


KOOOO 




30508460 


0913 


1 


084E 


DC 


NN 


SIDE 3 TRI 1 


30508470 


0914 


1 


0858 


DC 


SE 




30508480 


0915 


1 


085 8 


DC 


SE 




30508490 


0916 


1 


086E 


DC 


KOOOO 




30508500 


0917 


1 


085F 


OC 


PENUP 


MOVE TO NEW LOCATION 


30508510 


0918 


1 


0856 


DC 


NF 




30508520 


0919 


1 


086E 


DC 


KOOOO 




30508530 


091A 


1 


0860 


DC 


PENDW 




30508540 


091B 


1 


085C 


DC 


NW 


SIDE 1 TRI 2 


30508550 


091 C 


1 


0856 


DC 


NF 




30508560 


091D 


1 


086E 


DC 


KOOOO 




30508570 


091b 


1 


0856 


DC 


NE 


SIDE 2 TRI 2 


30508580 


091F 


1 


0858 


DC 


SE 




30508590 


0920 


1 


086E 


DC 


KOOOO 




30508600 


0921 


1 


0852 


DC 


EE 


SIDE 3 TRI 2 


30508610 


0922 


1 


085A 


DC 


SW 




30508620 


0923 


1 


085A 


DC 


SW 




30508630 


0924 


1 


086E 


DC 


KOOOO 




30508640 


0925 


1 


085E 


DC 


PENUP 




30508650 


0926 


1 


0858 


DC 


SE 




30508660 


0927 


1 


086E 


DC 


KOOOO 




30508670 


0928 


1 


0860 


DC 


PENDW 




30508680 


0929 


I 


0856 


DC 


NE 


SIDE 1 TRI 3 


30508690 


092A 


1 


0858 


OC 


SE 




30508700 


092B 


1 


08*E 


DC 


KOOOO 




30508710 


092C 


1 


0858 


DC 


SE 


SIDE 2 TRI 3 


30508720 


0920 


1 


085A 


DC 


SW 




30508730 


092E 


1 


086E 


DC 


KOOOO 




30508740 


092F 


1 


0850 


DC 


S 


SIDE 3 TRI 3 


30508750 


0930 


1 


085C 


DC 


NW 




30508760 


09 31 


1 


085C 


DC 


NW 




30508770 


0932 


1 


086E 


DC 


KOOOO 




30508780 


0933 


1 


085E 


DC 


PENUP 




30508790 


0934 


1 


085A 


DC 


SW 




30508800 


0935 


1 


086E 


DC 


KOOOO 




30508810 


0936 


1 


0860 


DC 


PENDW 




30508820 


0937 


1 


0858 


DC 


SE 


SIDE 1 TRI 4 


30508830 


0938 


1 


085A 


DC 


SW 




30508840 


0939 


1 


086E 


DC 


KOOOO 




30508850 
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PART NO. 
PAGE 



2191236 
7A 



093A 


1 


085A 


093B 


1 


085C 


093C 


1 


086E 


09 3D 


1 


0854 


093E 


I 


0856 


093F 


1 


0856 


0940 


1 


086E 


0941 


1 


085E 


0942 


1 


085C 


0943 


1 


086E 


0944 


1 


0860 


0945 


1 


0856 


0946 


1 


0858 


0947 


I 


085A 


0948 


1 


085C 


0949 


1 


085E 


094A 


1 


086E 


094B 


1 


0864 


094C 


1 


086E 



094D 





923F 


094E 





9A21 


094F 





219A 


0950 





BC1A 


0951 





2121 


0952 





FFFF 


0953 





329A 


0954 





9221 


0955 





FFFF 


0956 





7652 


0957 





2100 


0958 





2276 


0959 





9E62 


095A 





569E 


095B 





FFFF 


095C 





2276 


0950 





9E62 


095E 





569E 


095F 





2132 


0960 





9A92 


0961 





FFFF 


0962 





1AB2 


0963 





9AA6 


0964 





2132 


0965 





9A92 


0966 





FFFF 


0967 





9A36 


0968 





9E21 


0969 





1E52 


096A 





7272 


096B 





3E76 


096C 





329A 


096D 





2122 


096E 





7621 


096E 





9A92 


0970 





21C4 


0971 





84F4 


0972 





213E 


0973 





7632 


0974 





21E4 


0975 





84FC 


0976 





DC 21 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

* 

RT5ST DC 
OC 

* 

* 

******** 

******** 

* 

AWSB DC 
DC 
DC 
DC 
DC 
DC 

ADSW DC 
DC 
DC 

ANINT DC 
DC 
DC 
OC 
DC 
DC 

AIOSW DC 
DC 
DC 
DC 
DC 
DC 

ABDSW DC 
DC 
DC 
DC 
DC 

ASETS DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 



SIDE 2 TRI 4 



SIDE 3 TRI 4 



SW 

NW 

KOOOO 

WW 

NE 

NF 

KOOOO 

PENUP 

NW 

KOOOO 

PENDW 

NE 

SE 

SW 

NW 

PENUP 

KOOOO 

BSWCT 

KOOOO 



************************************ 

ALPHA MESSAGES 
************************************ 



/923E 
/9A21 
/219A 
/BC1A 
/2121 
/FFFF 
/329A 
/9221 
/FFFF 
/7652 
/2100 
/2276 
/9E62 
/569E 
/FFFF 
/2276 
/9E62 
/569E 
/2132 
/9A92 
/FFFF 
/1AB2 
/9AA6 
/2132 
/9A92 
/FFFF 
/9A36 
/9E21 
/1E52 
/7272 
/3E76 
/329A 
/2122 
/7621 
/9A92 
/21C4 
/84F4 
/213E 
/7632 
/21E4 
/84FC 
/DC21 



WAS S/B 



DSW 



NO INTRPT 



INTRPT OSW 



BUSY DSW 



SET 

T 

CO 

MM 

AN 

DS 

I 
N 
SW 


-5 
AND 
ND 

8 
-1 
3 



COMMANDS IN SW 0-5 



8-13 



30508860 
30508870 
30508880 
30508890 
30508900 
30508910 
30508920 
30508930 
3050.3940 
30508950 
30508960 
30508970 
30508980 
30508990 
30509000 
30509010 
30509020 
30509030 
30509040 
30509050 
30509060 
30509070 
30509080 
30509090 
30509100 
30509110 
30509120 
30509130 
30509140 
30509150 
30 509160 
30509170 
30509180 
30509190 
30509200 
30 509210 
30509220 
30509230 
30509240 
30509250 
30509260 
30509270 
30509280 
30509290 
30509300 
30509310 
30509320 
30509330 
30509340 
30509350 
30509360 
30509370 
30509380 
30509390 
30509400 
30509410 
30509420 
30509430 
30509440 
30509450 
30509460 
30509470 
305094 80 
30509490 
30509500 
30509510 
30509520 
30509530 
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0977 
0978 
0979 
097A 
09 7B 
097C 
097D 
097E 
097F 



8141 
9E26 
3676 
219E 
7621 
9A92 
21FC 
F021 
FFFF 



DC 


/8141 


*CR-TAB* 


DC 


/9E26 


THEN TN SW 14 


DC 


Z3676 


EN 


DC 


/219E 


T 


DC 


/7621 


N 


DC 


/9A92 


SW 


DC 


/21FC 


1 


DC 


/F021 


4 


DC 


/FFFF 





0980 05E8 



ENO 



BGIN 



NO STATEMENTS FLAGGED IN THE ABOVE ASSEMBLY 
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ABDSW 

ADSW 

AIDSW 

ANINT 

ASETS 

AWSB 

BDSW 

BEGIN 

BGIN 

BSWCT 

CHG1 

CHG2 

CHG3 

CKLK 

CKLK1 

CKLK2 

CKLK3 

CKLK4 

CNTRL 

CN10 

CN20 

CN30 

COMAD 

CONST 

CONT 

C0NT1 

C0NT2 

COUNT 

OISP 

DSW 

EE 

ELOG 

EMSG 

END 

ERLCK 

ERROR 

ERRX 

ERR2 

ERR 3 

ERR4 

EXTRA 

IDSW 

ILQ 

IH 

IL2 

IL3 

IL4 

KEEP 

KOOOO 



0962 

0953 

095C 

0956 

0967 

094D 

0836 

0160 

05E8 

0864 

0750 

075 7 

075E 

07FE 

0806 

0808 

0809 

080B 

05F2 

05F6 

05FD 

0603 

086B 

086C 

07C5 

07C0 

07D1 

086A 

0792 

0834 
0852 

0823 
082F 
0164 
0166 
0162 
0821 
0813 
081A 
081E 
0860 

0838 
017A 
018A 
019A 
01AA 
OlBA 
06C6 
086E 



0849 

0847 084A 

084D 

0B4B 

0790 

0846 0848 084C 

07AO 07BI 07B3 07C5 07C6 

05E8 

0980 

094B 

0727 

0728 

0729 

060B 07AC 07C1 07FB 0809 

0811 

0805 

080E 

0801 

05F1 0629 0679 06FI 0724 07BF 

05F4 
05F8 
0868 

083F 
0822 



0797 

0623 

0722 

07E2 

063C 

08C0 

07EB 

0824 

0601 

0703 

0827 

081D 

07B5 

07B7 

07CB 

0645 

0741 

07C9 



05EF 



07D8 

6 73 2 1 073^ SKI 0° 6 75 5B SS SB !S! "" "" ™* °" 5 °<" 

080? ok" 08EB 08% B S£{ ° 8?D ° 88D ° 8 " ° 8A ° ° 8 * 2 <>°" ° 88 ° 
0817 0821 082B 
0825 0826 0829 



07C7 OB 18 



0748 0740 ° 65F "^ ° 66B ° 6AC ° 6B2 ° 6 " ° 6E9 ° 72F 0735 073C 
07CA 083E 



K0002 

K0007 

K0150 

K4003 

K8000 

LEFT 

LKSW 

LOG 

LOGBY 

LOOK 



LOOP 
LRTN 



086F 
0870 
0871 
0872 
0873 
0862 
0812 
0163 
0167 
0874 



082A 
0615 



nl*i ? 8C9 ° 8CF 08D4 08D8 08C1 08E » 08ED 08F2 08F4 08F7 08FE 0900 

ss s ss ssi si; sk ss °™ <"" °' 27 s ss " °™ 

0704 
0618 



0878 ORCB OflEA 0907 
07E5 07FF 0808 0810 
0763 

0621 0625 0642 0649 0651 0656 065D 0665 0669 066E 068B OfeBF OABn 

ss S53 ss5 ss? ss ss sjs ° 701 ™ ° ; » ° A > ™ s;: ° 

060F 
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MARK 

MLSCF 

MSG1 

MSG2 

MSG3 

MSG4 

NE 



NEXT 

NN 

NOT 
N0T1 
NRTN 
NW 

OCTGN 

OLD 

PENDW 



PID 

PLOT 

RAD 

READY 

RECEV 

REG01 

REG02 

REG03 

RID 

RIOCK 

RQKB 

ROTY 

RTNOM 

RTNSW 

RTTBL 

RT1 

RT1ST 

RT2 

RT2ST 

RT3 

RT3ST 

RT4 

RT4ST 

RT5 

RT5A 

RT5B 

RT5C 

RT5D 

RT5E 

RT5ST 

RT5SW 

RUN 

S 

SBSW2 
SE 

SENSE 
SI0E1 
SIDE2 
SI0E3 
SORCT 
START 



0868 
05E5 
84 6 
0848 
084A 
084C 
0856 



0793 
084E 

07EF 
07F9 
0614 

085C 

061B 
06E2 
0860 



PFNUP 085E- 



05DC 
079B 
05DE 
07DF 
083A 
064F 
065B 
0667 
05DD 
060F 
01BC 
01BB 
0610 
0165 
0611 
0616 
0877 
062A 
08CA 
06 7B 
08E9 
06F3 
0906 
076 3 
0760 
0773 
0780 
077A 
0766 
094B 
078C 
072D 
0850 

0865 
0858 

0866 
0731 
0736 
074A 
0875 
0161 



079C 
0608 
07E8 
0816 
081C 
0820 
0636 
08A7 
093E 
07D0 
061B 
08B6 
07F3 
07F7 
0610 
062E 
0910 
061E 
O6F0 
087A 
08BC 
0928 
0877 
08B9 
0906 
05EA 
706 
0607 
0616 
05ED 
0655 
0661 
066D 
05EC 
05F7 



0600 
0609 
0605 
0611 
061F 
0612 
0640 
0613 
0689 
0614 
06FB 
0615 
077A 
0771 
076C 
0772 
0779 
0766 
076A 
0762 
0634 
092F 
0775 
0638 
091F 
079E 
0737 
0743 
074F 
06*9 
0806 



060D 077C 07A7 07AA 07C3 07F9 0841 



0684 06E0 06F7 070A 071A 

08B3 08BF 08CC 08D7 08F6 

093F 0945 

0632 06R1 06A0 06BA 06BC 

08C2 08CD 08D5 08DD 08EC 
07FD 



0693 06DE 0713 0718 0888 
091B 0930 0931 093B 0942 



087F 0RR4 0889 088E 0893 

08C1 08C6 08D0 08DC 08E0 

0936 0944 

087C 0881 0886 088B 0890 

08BE 08C3 08C8 08CA 08DA 

0917 0925 0933 0941 0949 

07DA 082A 

062A 067B 06F3 079B 07E3 
0843 



0750 0757 075E 0879 087E 088A 0896 
0904 0908 0911 0918 091C 091E 09?9 



06D2 06F9 0706 087B 0887 0897 08A6 
08EF 08FB 0909 090A 0913 



0894 08A9 08B5 08C5 08D2 08FF 090E 

0948 



0898 089D 08A3 08A8 08AD 08B2 0867 

08E5 08EE 08F8 08FC 0903 090C 091A 

0895 089A 089F 08A5 08AA 08AF 0884 

08DE 08E3 08E7 08E9 08F5 08FA 0901 



07E7 07F1 07F8 



05F6 05FC 05FD 05FF 0603 07BD 07CD 



060F 0610 



0789 07D0 

076E 0780 0786 078A 

0671 069A 06D4 0883 088F 089B 08AE 08BA 0809 08E4 08F1 0902 

0783 

0695 0700 071C 0880 088C 089C 08B1 08BD 0806 08F9 0914 0915 

0926 092A 092C 0937 0946 

07E0 07EF 0838 



06CB 
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STRT 


05EB 


05E3 


05E4 








SVKB 


01BD 












sw 


085A 


0630 


0697 


0710 


071F 


0882 0892 08 






0922 


0923 


092D 


0934 


0938 093A 09 


SWCOM 


078A 


0760 










SWMSG 


0780 


0765 










SWNG1 


06A7 


06CD 










SWNG2 


06AA 


067F 


06B9 


06C4 






SWNG3 


06AE 


06B4 










SWNG4 


06E5 


06EB 










SWO 


05DF 


07D1 










SW1 


05E0 


05F3 


05FB 


07B9 






SW2 


05E1 


1802 


080B 








SW3 


05E2 












TCNTL 


0726 


070C 


070F 


0712 


0715 


075B 


TOP 


0750 


0756 










TRICT 


0876 


06A8 


06B7 


060B 


06EE 


072B 0754 


WAIT 


07A2 












WAIT1 


07A5 


07B0 










WAIT2 


07AA 












WAIT3 


07AE 


07A5 










WAIT4 


7B9 


077E 


07A9 








WAIT5 


07C1 


07BB 










WCNT 


07DE 


07A4 


07AE 


07FE 


07F5 




WMIL1 


0706 


0709 










WW 


0854 


063E 
093D 


0675 


069C 


0885 


0891 08AC 08 


END OF 


ASSEMBLY 
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TABLE OF CONTENTS 

PARAGRAPH p AGE 

1. PURPOSE ! 

2. PREREQUISITES ! 

2.1 PROGRAM PREREQUISITES 

2.2 EQUIPMENT PREREQUISITES 

3. OPERATING PROCEDURE 1A 

3.1 PROGRAM LOADING 

3.2 PROGRAM OPERATION 

3.2.1 PROGRAM CONTROL - FUNCTION 

3.2.2 ROUTINE SELECTION - FUNCTION 1 

3.2.3 PROGRAM OPTIONS 

3.3 PROGRAM HALTS 

3.3.1 NORMAL HALTS 

3.3.2 ERROR HALTS 

3.4 PROGRAM TERMINATION 

3.5 RESTART 

4. PRINTOUTS j 

4.1 STATUS MESSAGES 

4.2 ERROR MESSAGES 

5. COMMENTS 5A 

5.1 TEST NO. 1 (PUNCH TEST) 

5.2 TEST NO. 2 (READER TEST). 

5.3 TEST NO. 3 (PUNCH/READ/COMPARE TEST) 

5.4 TEST NO. 4 (REPRODUCE-TAPES TEST) 

5.5 TEST NO. 5 ( PUNCH BIT SWS TEST ) 

6. APPENDIX 

6.1 SAMPLE TAPE 

1. PURPOSE 

THE FUNCTION TEST IS DESIGNED ( 1 ) TO TEST FOR PROPER OPERATION OF THE 

PAPER-TAPE STATUS INDICATORS AND (2) TO TEST FOR ACCURATE DATA HANDLING 

BY THE PAPER-TAPE READER AND PAPER-TAPE PUNCH WHEN OVERLAPPED WITH 

OTHER ELEMENTS OF THE 1130 SYSTEM. THIS TEST MAY ALSO BE USED TO REPRODUCE 

TAPES. 

2. PREREQUISITES 

2.1*** PROGRAM PREREQUISITES 

1130 DIAGNOSTIC MONITOR II 
2.2*** EQUIPMENT PREREQUISITES 

1. 1131 CPU WITH PROGRAM LOAD FROM EITHER CARD OR PAPER TAPE READER 

2. 1134 PAPER TAPE REAOER AND/OR 1055 PAPER TAPE PUNCH. 

3. AT LEAST 750 WORDS OF AVAILABLE CORE STORAGE. 
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3. OPERATING PROCEDURE 

THESE OPERATING PROCEDURES APPLY TO SINGLE PROGRAM OPERATION ONLY. 
FOR OVERLAP OPERATION, REFER TO SECTION 3.2.3 OF THE 1130 
DIAGNOSTIC MONITOR II DOCUMENTATION. 

3.1*** PROGRAM LOADING 

FOR THE CONVENIENCE OF 'READER ONLY' SYSTEMS, THE TEST PATTERN HAS 
BEEN INCLUDED ON THE END OF THE PAPER TAPE PROGRAM TAPE AND MAY BE 
IDENTIFIED BY COMPARING WITH THE SAMPLE TAPE. SECTION 6.1. 

STANDARD MONITOR LOADING PROCEDURES APPLY 

THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR 
DETAILS. 

1. SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEFT MARGIN. 

2. SET BIT SWITCH 15 OFF - LOAD AND GO 

ON - TO HALT AFTER LOADING 

IF HALT AFTER LOADING, SELECT PROGRAM 
OPTIONS THEN TURN OFF HALT SWITCH OR 
FOLLOW NORMAL RESTART PROCEDURE 
(SECTION 3.5). 

3. LOAD DIAGNOSTIC MONITOR AND THIS PROGRAM. 

4. SELECT PROGRAM OPTIONS, IF DESIRED. 

****** 

3.2*** PROGRAM OPERATION. 

3.2.1 PROGRAM CONTROL - FUNCTION 

1. SET SWITCHES 0-7 TO 01. 

2. SET SWITCHES 8-15 AS DESIRED. 



SW 



FUNCTION 



8 RESTART 

9 ROUTINE START MESSAGE 

10 LOCK ON FUNCTION 

11 LOOP PROGRAM 

12 LOOP ON ERROR 

13 BYPASS ERROR PRINTOUT 

14 HALT ON ERROR 

15 HALT 



3. PRESS INT REQ KEY ON CONSOLE. 

** 

3.2.2 ROUTINE SELECTION - FUNCTION 1 

THE SELECTED ROUTINE WILL LOOP UNTIL A NEW ROUTINE IS SELECTED 
OR ROUTINE SELECTION IS RESET. 
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2. 



TO SET ROUTINE SELECTION 



A. SET SWITCHES 0-7 TO 41. 

B. SET ROUTINE NUMBER IN SWITCHES 12-15. 



RTN 



DESCRIPTION 



1 




PUNCH PATTERN 


. NORMAL ROUTINES- 


2 




READ PATTERN 


. THE PROGRAM STARTS WITH 


3 




PUNCH AND READ PATTERN 


. ROUTINE 1, RUNS EACH 
. ROUTINE IN SEQUENCE 
. THEN TERMINATES AFTER 
. ROUTINE 3. 


4 


* 


REPRODUCE TAPE 


. OPTIONAL ROUTINES 


5 


* 


PUNCH BIT SWITCH SETTING 


. THESE ROUTINES RUN 
. ONLY IF SELECTED. 



* = REFER TO SECTION 3.2.3 FOR SPECIAL INSTRUCTIONS. 

C. PRESS INT REQ KEY ON CONSOLE. 

TO RESET ROUTINE SELECTION, SET AS IF SELECTING ROUTINE ZERO 
** 



3.2.3 PROGRAM OPTIONS 

1. PUNCH FROM BIT SWITCHES 

ROUTINE 5 PUNCHES ALTERNATELY FROM SWITCHES 0-7 AND SWITCHES 
8-15. AFTER THE ROUTINE IS SELECTED, SET THE DESIRED PATTERN 
IN THESE SWITCHES. 

2. RE ALIGN PAPER TAPE 

TO REALIGN THE PAPER TAPE AT ANY TIME DURING RUNNING OF THE 
PROGRAM - 

A. SET SWITCHES TO 8180 

B. PRESS INT REG. KEY. 

****** 
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3.3*** PROGRAM HALTS 
3.3.1 NORMAL HALTS 



.HALT NO. 
.(B REG) 


DESCRIPTION 


RESTART 
ACTION 


. 3001 
'. 3002 


PROGRAM STOP OR ADDRESS STOP . 
! HALT ON ERROR 


PRESS START 

DISPLAY MODE PRESS START. 
RUN MODE - PRESS START . 



3.3.2 ERROR HALTS 



.HALT NO. 


DESCRIPTION 


RESTART 


.(B REG). 




ACTION 


1 30F1 . 


CHECK SUM ERROR ON FIRST 
CARD OF LOADER 


RELOAD 


. 30F2 . 


READER DSW ERROR WHEN 
LOADING LOADER 


RELOAD 


. 30F3 


CARD 2 OF LOADER DID NOT 
LOAD 


RELOAD 


. 30F4 , 


CAN NOT CLEAR CORE - DUE TO 
ERROR IN ADDRESSING UPPER 
CORE. 




. 30F5 


READER CHECK WHEN LOADING 


NPRO THEN PLACE CARDS 




MONITOR OR TEST PROGRAM 


RUN OUT IN FRONT OF 
REMAINING DECK AND PRESS. 
START. 


'. 30F6 


'. MONITOR DID NOT LOAD 


RELOAD 


. 30F7 


CHECK SUM WHEN LOADING 
MONITOR 


RELOAD 


. 30F8 


READER NOT READY 


MAKE READER READY 


. 30F9 


INVALID INTERRUPT WHICH WILL 
NOT RESET 


PRESS RESET ANO START 


. 30FA 


CONSOLE PRINTER HANG UP - 


FIX THE CONSOLE PRINTER . 




BUSY WILL NOT GO OFF 


OR NOP THIS WAIT 
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3.^*** PROGRAM TERMINATION 

IF LOOP PROGRAM HAS NOT BEEN SPECIFIED THE PROGRAM WILL TERMINATE 
AT THE END OF ROUTINE 3. ROUTINE 4 AND 5 WILL ONLY RUN IF 
SELECTED. 

IF ANY ROUTINE IS SELECTED THAT ROUTINE WILL LOOP AND WILL NOT 
TERMINATE. 



AOBOO OORR AAAA 



ROUTINE START MESSAGE - IF SWITCH 9, FUNCTION 0, IS TURNED ON, 
THIS MESSAGE WILL BE PRINTED BEFORE THE START OF EACH ROUTINE. 
R IS THE NUMBER OF THE NEXT ROUTINE AND AAAA IS THE STARTING 
ADDRESS. 



****** 



A0B01 OORR AAAA 



TAPE ALIGNED 



3.5*** RESTART 



1. SET SWITCHES 0-7 TO 01. 

2. TURN ON SWITCH 8. 

3. SET DESIRED CONTROL IN SWITCHES 9-14. 

4. PRESS INTERRUPT REQUEST KEY. 

********** 

PRINTOUTS 

ALL PRINTOUTS ARE IN THE STANDARD FORMAT. 

(MESSAGE) 



APPNN OORR AAAA 

OR 

EPPNN OORR AAAA 

WHERE 



(MESSAGE) 

A IDENTIFIES STATUS MESSAGES 
E IDENTIFIES ERROR MESSAGES 
PP IS THE PID OF THE PROGRAM CAUSING THE MESSAGE 

THIS WILL BE EITHER 00 FOR MESSAGES 

ORIGINATED BY THE MONITOR OR 

OB FOR MESSAGES ORIGINATED BY 

THIS PROGRAM. 

NN IS THE MESSAGE SEQUENCE NUMBER 

RR IS THE ROUTINE NUMBER 

AAAA IS THE ADDRESS OF THE ROUTINE 

MESSAGE IS ANY VARIABLE INFORMATION 



4.1*** STATUS MESSAGES 



AOOOO 



NUM PID ADRS RELF 
XXXX XXXX XXXX XXXX 



LD 



THIS MESSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM 
(EXCEPT MONITOR), THE MESSAGE GIVES THE LOAD SEQUENCE NUMBER, 
THE PROGRAM ID, THE ADDRESS INTO WHICH THE PROGRAM WAS LOADED, 
AND THE RELOCATION FACTOR. 



THE PAPER TAPE TEST RECORD IS ASSUMED TO BE PROPERLY ALIGNED IN THE 
READER AT THIS TIME. THIS MESSAGE IS RECEIVED ONLY AFTER OPERATOR 
SPECIFICATION OF REALIGN TAPE OPTION. 

****** 

4.2*** ERROR MESSAGES 

THE DSW IS CHECKED FOR ABSOLUTE CORRECTNESS AT ALL TIMES. IF AN 
ERROR IS DETECTED ONE OF THE MESSAGES BELOW WILL INDICATE THE 
PROBLEM. IT IS LEFT TO THE OPERATOR TO ANALYZE THE DSW FOR THE 
SPECIFIC PROBLEM AREA. 



♦S************************************-^*^.^,)..;.,..^,^ 

* THE PAPER TAPE DSW * 

* i 



* 
* 
* 
* 
* 
* 
* 

* 

* 

* 

* 
* 
* 
* 

************************************* xwtiftlcif $$$£**** 



* 


BIT 




* 





PARITY ERROR 


* 


I 


READER SERVICE 


* 


2 


NOT USED 


* 


3 


PUNCH SERVICE 


* 


4 


READER BUSY 


* 


5 


READER NOT READY 


* 


6 


PUNCH BUSY 


* 


7 


PUNCH NOT READY 


* 


8 


NOT USED 


* 


9 


NOT USED 


* 


10 


NOT USED 


* 


11 


NOT USED 


* 


12 


NOT USED 


* 


13 


NOT USED 


* 


14 


NOT USED 


* 


15 


NOT USED 


* 







A0001 SWS PID 

XXXX XXXX 

THIS MESSAGE IS PRINTED EACH TIME A VALID SWITCH ENTRY IS READ 
BY THE MONITOR. THE MESSAGE CONTAINS THE SWITCH SETTING READ 
TOGETHER WITH THE PROGRAM ID OF THE PROGRAM INTO WHICH THE 
CONTENTS OF SWITCHES 8-15 WERE STORED. IF THE SWITCH ENTRY 
CALLED FOR HALT OF ANY PROGRAM, THE WORD HALT WILL FOLLOW THE 
MESSAGE. 
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E0001 



E0003 



E0004 



E0005 



SWS INVLD 
XXXX 

THE SETTING OF SWITCHES 4-7 DID NOT EQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PROGRAM IN CORE. 



OVR CORE 

THE PROGRAM WHICH THE LOADER WAS ATTEMPTING TO LOAD 
EXCEEDED AVAILABLE CORE. LOADING WAS TERMINATED. 



CKSUM 

A CHECK SUM ERROR WAS DETECTED WHILE LOADING A TEST PROGRAM. 
THIS ERROR OCCURS UNDER ANY OF THE FOLLOWING CONDITIONS. 

1. A CARD IS MISSING OR IS OUT OF SEQUENCE. 

2. THERE IS AN EXTRA CARD IN THE DECK. 

3. THE PUNCHED INFORMATION ON THE CARD IS NOT CORRECT. 

4. DATA WAS LOST OR PICKED UP DUE TO A MACHINE MALFUNCTION. 

5. DUE TO A CPU MALFUNCTION, THE CHECK SUM WAS NOT 
CORRECTLY CALCULATED. 

WHEN THIS ERROR OCCURS ATTEMPT TO RELOAD THE PROGRAM. 



OOON XXXX 

THIS ERROR WILL OCCUR IS AN INTERRUPT OCCURS, BUT THE ILSW 
WAS NOT CORRECT. N IS THE INTERRUPT LEVEL AND XXXX IS THE 
ILSW. THIS PRINTOUT WILL ONLY OCCUR IF THE INTERRUPT IS RESET 
BY A BOSI. NO ATTEMPT IS MADE BY THE ERROR ROUTINE TO RESET 
THE REQUEST BIT. 



E0B01 OORR AAAA XXXX 0X00 

DSW ERROR AFTER READER-CONTROL COMNANO 



E0B02 OORR AAAA XXXX 0X00 

DSW ERROR AFTER PUNCH COMMAND 



E0B03 OORR AAAA XXXX OFOO 

DSW ERROR AFTER READER-CONTROL AND PUNCH COMMANDS 



E0604 OORR AAAA XXXX 0X00 

DSW ERROR WHEN CHECKING FOR READER-READY 



E0B05 OORR AAAA XXXX 0X00 

DSW ERROR WHEN CHECKING FOR PUNCH-READY 



E0B06 OORR AAAA XXXX 4000 

READER SERVICE-REQUEST DSW ERROR 



E0B07 OORR AAAA XXXX 1000 

PUNCH SERVICE-REQUEST DSW ERROR 



E0B08 OORR AAAA XXXX 5000 

OSW ERROR WHEN PUNCH AND READER INTERRUPTS RECEIVED AT SAME TIME 



E0B09 OORR AAAA 



XXXX XOOO 



DSW ERROR WHEN FIRST INTERRUPT WAS RECEIVED. AT THIS TIME BOTH THE 
REAOER AND THE PUNCH ARE BEING RUN UNDER RACE CONDITIONS. THE DSW 
FOR THE DEVICE THAT INTERRUPTS FIRST IS ANALIZED FIRST. ANY ERROR 
WILL BE PRINTED AS AN E0B09. SIMILARLY FOR THE SECOND INTERRUPT, AN 
ERROR WILL BE PRINTED AS E0B10. 



E0B10 OORR AAAA 



XXXX XOOO 



DSW ERROR WHEN FIRST INTERRUPT WAS RECEIVED. AT THIS TIME BOTH THE 
READER AND THE PUNCH ARE BEING RUN UNDER RACE CONDITIONS. THE DSW 
FOR THE DEVICE THAT INTERRUPTS FIRST IS ANALIZED FIRST. ANY ERROR 
WILL BE PRINTED AS AN E0B09. SIMILARLY FOR THE SECOND INTERRUPT, AN 
ERROR WILL BE PRINTED AS EOBIO. 



E0B11 OORR AAAA 



XXXX 0X00 



NO READER INTERRUPT RECEIVED. ( XXXX IS THE LAST DSW SENSED 
IMMEDIATELY AFTER THE READER-CONTROL COMMAND. 
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E0B12 OORR AAAA 



XXXX 0X00 



NO PUNCH INTERRUPT RECEIVED (XXXX IS THE LAST DSW SENSED IMMEDIATELY 
AFTER THE READER-CONTROL COMMAND ) 



E0B13 OORR AAAA 



XXXX OFOO 



NO PUNCH OR READER INTERRUPT (XXXX IS THE LAST DSW SENSED IMMEDIATELY 
AFTER THE READER-CONTROL AND PUNC COMMANDS) 



E0B14 OORR AAAA 



DATA ERR 
XXOO XXOO 



READ/COMPARE ERROR (RDR BUFFER CHANGED) 

DATA (XXOO) PRINTED AS ENTERED IN CORE - CHANNELS 8-1 RESPECTIVELY 



E0B15 OORR AAAA 



DATA ERR 
XXOO XXOO 



READ/COMPARE ERROR ( RDR BUFFER UNCHANGED) 

DATA (XXOO) PRINTED AS ENTERED IN CORE - CHANNELS 8-1 RESPECTIVELY 



E0B16 OORR AAAA 



XXXX 0000 XXOO 



READER-DSW READ ERROR WHEN REPRODUCING TAPES. IF TAPE STOPPED, THE 
FIRST CHARACTER BEYOND THE READ STATION WAS PERHAPS IMPROPERLY READ. 
THIS CHARACTER HAS NOT AS YET BEEN PUNCHED. BACK THE READER UP ONE 
CHARACTER AND PRESS START ON THE P-C . 
DATA (XXOO) PRINTED AS ENTERED IN CORE - CHANNELS 8-0 RESPECTIVELY. 

READ READ 

1ST 2ND 

E0B18 OORR AAAA XXOO XXOO 

CONSECUTIVE READ ERROR DATA (XXOO) SHOULD AGREE. 



E0B19 OORR AAAA 



XXOO YYOO 



THE PROGRAM COULD NOT ALIGN THE TAPE IN THE READER IN THE LAST 
500 CHARACTERS. 

THE PROBLEM IS, 

A. OPEN DATA CHANNEL(S). XXOO SHOULD BE FFOO, WHICH IS THE CHARACTER 
THAT WOULD BE PLACED IN CORE BY READING AN ALL-BITS CHARACTER. 



B. 



ANY MISSING BIT(S) INDICATE THE OPEN DATA CHANNEL(S). 

SHORTED DATA CHANNEL(S). YYOO SHOULD BE 0000, WHICH IS THE 
CHARACTER THAT WOULD BE PLACED IN CORE BY READING A NO-BITS 
CHARACTER. ANY BIT(S) PRESENT INDICATE THE SHORTED CHANNEL(S). 

IF BOTH XXOO AND YYOO ARE CORRECT, 

1. THE TAPE IS NOT IN THE READER CORRECTLY, OR 

2. THE READER CANNOT READ THE FIRST 8 CHARACTERS PROPERLY. 
IF SO, TRY ONE OF THESE, 

A. TRY RUNNING THE REPRODUCE TAPE ROUTINE (ROUTINE 4). 

B. TRY MANUALLY ALIGNING THE TAPE IN THE READER. THEN 
SPECIFY THE MANUAL TAPE ALIGNMENT OPTION (TABLE 0) 
AND RESTART THE PROGRAM. 



E0B20 OORR AAAA XXXX 

A SPURIOUS OR NON-RESETABLE INTERRUPT HAS BEEN RECEIVED. 
5. COMMENTS 

THE FUNCTION TEST CONSISTS OF THREE NORMAL ROUTINES AND TWO OPTIONAL 
ROUTINES. NORMALLY, ROUTINES ONE THROUGH THREE ARE RUN IN ORDER. ALL 
ROUTINES ARE DESCRIBED IN PARAGRAPHS 5.1 THROUGH 5.5. 
THE FUNCTION TEST, 

A. CHECKS DSW FOR PROPER BITS BEFORE ISSUING WRITE (PUNCH) OR 
CONTROL (READER) COMMANDS. 

B. CHECKS DSW FOR CORRECTNESS AFTER XIO INSTRUCTION. 

C. CHECKS FOR INTERRUPT FROM DEVICE WITHIN SPECIFIED TIME LIMIT. 

D. CHECKS DSW AFTER INTERRUPT IS RECEIVED. 
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PAPER TAPE READER/PUNCH FUNCTION TEST 
5.1*** ROUTINE NO. 1 (PUNCH TEST) 

TEST NO. 1 CHECKS THE OPERATION OF THE PAPER-TAPE PUNCH WHILE 
PUNCHING TWO TEST RECORDS. THE RECORD INCLUDES A RIPPLE PATTERN 
AND AN ALL-CHARACTER PATTERN. (REFER FIGURE 1). 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FUR THE 1130 SYSTEM 
PAPER TAPE READER/PUNCH FUNCTION TEST 

6. APPENDIX 

6.1 SAMPLE TAPE 

FIGURE 1 SHOWS EXAMPLE OF PAPER TAPE RECORD. 



PART iMU. 2191234 
PAGh 6A 



5.2*** ROUTINE NO. 2 (READER TEST) 

THIS TEST CHECKS THE OPERATION OF THE PAPER TAPE READER WHILE READING 
ONE RECORD PRODUCED BY THE PUNCH TEST. THE TAPE IS NORMALLY 
AUTOMATICALLY ALIGNED IN THE READER BY READING EIGHT CONSECUTIVE 
CHARACTERS CORRECTLY. A MESSAGE IS PRINTED WHEN THE TAPE IS PROPERLY 
ALIGNED. IF DESIRED, THE OPERATOR CAN MANUALLY PLACE THE TAPE IN THE 
THE READER ON THE FIRST CHARACTER OF THE RIPPLE PATTERN AND SPECIFY 
THE MANUAL ALIGNMENT OPTION AS IN TABLE 0. THE TAPE MAY ALSO BE 
REALIGNED IN THE READER AT ANY TIME. 

EACH CHARACTER READ IS COMPARED WITH A WORD IN STORAGE. AN UNEQUAL 
COMPARE WILL CAUSE AN ERROR TYPEOUT. SEE 4.2. THERE WILL BE 
BE ONE ERROR TYPEOUT FOR EACH READ/COMPARE ERROR. 

THESE ERROR PRINTOUTS MAY INDICATE THE TAPE IS NOT IN THE PROPER 
POSITION IN THE READER. THE TAPE MAY BE MANUALLY ADJUSTED IN THE 
READER OR THE OPERATOR MAY SELECT REALIGN TAPE. (TABLE 0) 
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5.3*** ROUTINE NO. 3 (PUNCH/READ/COMPARE TEST) 

THIS TEST CHECKS THE FUNCTION AND RELIABILITY OF THE PAPER TAPE 
READER AND PUNCH WHEN OPERATED TOGETHER. BOTH DEVICES ARE OPERATED 
AT THE SAME SPEED. THE DATA READ IS COMPARED WITH THE DATA PUNCHED 
IN A NEW TAPE. THIS TEST ALSO HAS THE TAPE ALIGNMENT FEATURE OF TEST 
NO. 2. THE TEST IS COMPLETE AFTER ONE RECORD HAS BEEN PROCESSED. 



6. # 
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5.4*** ROUTINE NO. 4 ( REPRODUCE-TAPES TEST) 



THE OPERATOR HAS THE 
MUST SPECIFY HALT ON 
ALL DEVICE STATUS CHECKING 
IN THIS TEST. ALSO, A DSW 
DELAY OF THE PROGRAM UNTIL 
OTHER THAN E016 IS PRINTED 
PROPER PUNCHES ARE OBTAINED, 
IN INSTRUCTIONS. 



OPTION OF REPRODUCING ANY TAPE. THE OPERATOR 
ERROR OPTION IN MONITOR CONTROL TABLE 0. AGAIN, 

DONE IN TESTS NOS. 1 AND 2 IS INCLUDED 

ERROR WHEN READING THE TAPE WILL CAUSE A 

THE OPERATOR CAN INTERVENE. 

PRESS START AND THEN VERIFY THAT THE 
SEE SPECIFIC ERROR MESSAGE FOR AID 
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5.5*** ROUTINE NO. 5 (PUNCH BIT SWITCH IMAGE) 



THIS ROUTINE PUNCHES THE DATA ENTERED IN THE BIT SWITCHES. 

THE ROUTINE WILL ALTERNATELY PUNCH FROM SWITCHES 0-7 THEN SWITCHES 

8-15. 
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0160 
0161 
0162 
0163 
0164 



0165 
0166 
0167 

0168 



017A 
01HA 
019A 
01AA 
01BA 
01BB 
01BC 
01BD 

0000 



05DC 





030B 


05DD 





0000 


05DE 





0000 


05DF 





0000 


05E0 





0000 


05E1 





0000 


05E2 





0000 


05E3 


1 


0647 


05E4 


1 


0634 


05E5 





0000 


05E6 


1 


0634 


05E7 





0000 


05E8 





FFFF 



05E9 0000 
05EA 1 OCOO 0740 
05EC D036 
05ED 1 6780 062E 
05EF 1 4F80 0625 

05F1 1 F700 062B 



****** 

* 

****** 

* 

* 

* 

* 

BEGIN 

START 

ERROR 

LOG 

END 

* 



****************************************,(. $$£ 

EQUATE TABLE 
****************************************$$$,[. 

THIS TABLE EQUATES TEST PROGRAM LABELS 
TO THEIR EQUIVALENT DIAGNOSTIC MONITOR 
ADDRESSES. 

EQU /160 BEGIN ROUTINE 

EQU BEGINS1 SUPERVISOR ROUTINE 

EQU STARTE1 ERROR LOG ROUTINE 

EQU ERR0R61 STATUS LOG ROUTINE 

EQU L0GE1 END ROUTINE 



MONITOR CONTROL WORD ADDRESSES 



RTNSW EQU 
ERLCK EQU 
LOGBY EQU 
RLCF EQU 
* 



ENDfil ROUTINE START SWITCH 

ENDE2 LOCK ON ERROR CONTROL 

ENDS3 I/O BUSY SW ADR 

END£4 RELOCATION FACTOR ADR 



* 

* 

ILO 

IL1 

IL2 

IL3 

IL4 

RQTY 

RQKB 

SVKB 



INTERRUPT TRANSFER VECTOR ADDRESSES 

EQU /17A INTERRUPT LEVEL ZERO 

EQU IL0616 INTERRUPT LEVEL ONE 

EQU IL1E16 INTERRUPT LEVEL TWO 

EQU IL2S16 INTERRUPT LEVEL THREE 

EQU IL3616 INTERRUPT LEVEL FOUR 

EQU IL4S1 TYPR SVC REQUEST INTERPT 

EQU RQTY61 KEYBOARD REQUEST INTERPT 

EQU RQKB61 KEYBOARD SERVICE INTERPT 
^^^^♦♦♦♦i*********************************,),^.,, 

ORG *61500 

* 
******************************************,„*,„ 

* DIAGNOSTIC MONITOR * 

* CONTROLLED * 

* 1130 PAPER TAPE TEST * 

********************************************* 
* 

* PROGRAM STATUS TABLE 

* 

PID DC /030B PROGRAM ID NUMBER 

RID DC /OOOO ROUTINE NUMBER 

RAD DC /OOOO ROUTINE ADDRESS 

SWO DC /OOOO FCN - CONTROL 

SW1 DC /OOOO FCN 1 - INITIAL RTN 
SW2 DC NOT USED 

SW3 DC /OOOO PUNCH SWS WORD 

DC LOOP LOOP PROGRAM ADDRESS 

DC RESRT INITIALIZATION ADDR 

MLSCF DC /OOOO MAIN LINE SEQ CNTL 

DC RESRT 

DC /OOOO COUNTER ENTRY 

TERM DC /FFFF TERMINATOR 
********************************************* 
* 
* 
* 
* 
* 
* 



INTERRUPT ROUTINE 



POINT DC 
XIO 
STO 
LDX 
BSC 



13 



/OOOO 
XIOSD 
DSWIT 
INTEX 



13 HANDL-1 



* 
SINT 



EOR L3 INTEX-3 



SENSE DSW 

BR TO PROPER CHECK 
CHECK SINGLE INTRPT 



30B00020 

30B00030 

30B00040 

30B00050 

30B00060 

30B00070 

30B00080 

30B00090 

30B00100 

30B00110 

30B00120 

30B00130 

30B00140 

30B00150 

30B00160 

30B00170 

30B00180 

30B00190 

30B00200 

30B00210 

30B00220 

30B00230 

30B00240 

30B00250 

30B00260 

30B00270 

30B00280 

30B00290 

30B00300 

30B00310 

30B00320 

30B00330 

30B00340 

30B00350 

30B00360 

30B00370 

30B00380 

30B00390 

30B00400 

30B00410 

30B00420 

30B00430 

30B00440 

30B0045f 

30B00460 

30B.J0470 

30B00480 

30B00490 

30B00500 

30B00510 

30B00520 

30B00530 

30B00540 

30B00550 

30B00560 

30B00570 

30B00580 

30B00590 

30B00600 

30B00610 

30B00620 

30B00630 

30B00640 

30B00650 

30B00660 

30B00670 

30B00680 

30B00690 



05F3 1 E780 062E 
05F5 1 4C18 061C 
05F7 1 6700 075F 
05F9 7024 



05FA 
05FB 
05FD 
05FE 

05FF 



F030 
4C00 OOOO 



D02B 
E02C 
D02A 
0600 1 4C20 0610 

0602 C026 

0603 1 4C18 061C 
0605 1 6700 0769 

0607 7016 

0608 E821 

0609 D019 
060A F020 

060B 1 4C18 061C 
060D 1 6700 076E 
060F 700E 



0610 
0611 
0612 
0613 
0615 
0616 



1340 

1001 

D011 

6700 0608 

6BE6 

700A 



0617 1 6700 0755 

0619 1 6F00 05E5 
061B 7005 

061C 1 6700 077D 
061E 6BC7 

061F 6300 

0620 6B0D 

0621 1 4C80 05E9 



0623 OOOO 

0624 OOOO 

0625 1 0617 



0626 


1 


05F1 


0627 


1 


05F1 


0628 


1 


05FA 


0629 





OOOO 


062A 





OOOO 


062B 





5000 


062C 





4000 


062D 





1000 


062E 





OOOO 



062F 1 0748 
0630 1 0749 



0631 4480 0160 



* 
DINT 

DINT1 



* 
DINT2 



AND 
BSC 
LDX 
MDX 

EOR 

BSC 

STO 

AND 

STO 

BSC 

LD 

BSC 

LDX 

MDX 

OR 

STO 

EOR 

BSC 
LDX 
MDX 



* 
EINT 



* 
PINT3 

PINT1 

* 



LDX 
STX 
MDX 

LDX 
STX 

LDX 
STX 



13 

L 
L3 



INTEX 
PINT3.&- 
NIPES 
PINT1 



INTED 
L /OOOO 

DSWDI 

INTED 

DSWID 
L DINT4,Z 

DSWDI 
L PINT3,£- 
L3 DINE1 

PINT1 

DSWID 
DSWIT 
INTED 

L PINT3.6- 
L3 DINE2 
PINT1 



* 

* 

DINT4 SLCA 
SLA 
STO 
LDX 
STX 
MDX 



L3 
3 





1 

BUMRQ 

DINT2 

DINT1- 

XIT 



L3 SPUR 
L3 MLSCF 
XIT 



L3 
3 

3 

3 



DINE6 
MLSCFU 


INTEX 



* 
XIT 



BR IF DSW OK 
SVC REQ ERROR 



CK DSW FOR 2 SVC 
BR IF 2ND DOUBLE 
CK FIRST INTERPT 



REQ 
INT 
DSW 



EXIT IF ONLY ONE REC 

BR IF DSW OK 

PRINT DSW ERROR NEXT 



CHECK SECOND INTRPT DSW 



BR IF DSW OK 



ZERO IF NO IEQ BIT 
SET SECOND INT SW 



SPURRIOUS OR NON- 
RESETABLE INTERRUPT 



DSW OK 



RET TO MLINE 



BSC I POINT 



RESET INTRPT EXPECTED 



BUG OUT 



********************************************* 
* 



DSWIT DC 

BUMRQ DC 

DC 

* 

HANDL 



DSWDI 
DSWID 

* 
INTED 



DC 
DC 
DC 
DC 
DC 



DC 

DC 

DC 

INTEX DC 

* 
* 
* 

DC 

DC 



/OOOO 
/OOOO 
EINT 

SINT 

SINT 

DINT 

/OOOO 

/OOOO 

/5000 
/4000 
/1000 
/OOOO 



LAST INTERRUPT DSW 



INTERRUPT BR ADRS 
PUNCH INTR CK ADRS 
RDR INTER CK ADRS 
RDR-PUNCH INT CK 

IDENTIFY INT YET EXP 

RDR-PCH SVC REQ EXP 
RDR SVC REQ 
PCH SVC REQ 
INTERRUPT EXPECTED 

1 # READER 

2 # PUNCH 

3 # BOTH 
READER 
PUNCH 

********************************************* 
* 

********************************************* 

PTBGN BSI I BEGIN CALL MONITOR * 



RMASK 
XMASK 



30B00700 

30B00710 

30B00720 

30B0O730 

30B00740 

30B00750 

3OB0O76O 

30B0O770 

30B00780 

30B00790 

30B00800 

30B00810 

30B00820 

30B00830 

30B00840 

30B00850 

30B00860 

30B00870 

30B00880 

30B00890 

30B00900 

30B00910 

30B0O920 

30B0O930 

30B00940 

30B00950 

30B00960 

30B00970 

30B00980 

30B00990 

30B01000 

30B01010 

30B01020 

30B01030 

30B01040 

30B01050 

30B01060 

30B01070 

30B01080 

30B01090 

30B01100 

30B01110 

30B01120 

30B01130 

30B01140 

30B01150 

30B01160 

30B01170 

30B01180 

30B01190 

30B01200 

30B01210 

30B01220 

30B01230 

30B01240 

30B01250 

30B01260 

30B01270 

30B01280 

30B01290 

30B01300 

30B01310 

30B01320 

30B01330 

30B01340 

30B01350 

30B01360 

30B01370 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490B 



15N0V66 
419643 



PROG ID 
PAGE 



030B-2 
1 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490B 



15N0V66 
419643 



PROG ID 
PAGE 



030B-2 
1A 



I MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
'ER TAPE READER/PUNCH FUNCTION TEST 



PART NO. 
PAGE 



2191232 
2 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
PAPER TAPE READER/PUNCH FUNCTION TEST 



PART NO. 
PAGE 



2191232 
2A 



0633 1 05DC 



DC PID ADDR OF PID NO * 

********************************************* 



RESET TAPE ALIGN WORDS 



0634 





62F8 




* 
RESRT 


INI 
LDX 


TIAt 
2 


. PROGRAI 
-8 


0635 


1 


6E00 


07E7 




STX 


L2 


CORCT 


0637 


1 


C400 


05E1 




LD 


L 


SW2 


0639 





1810 






SRA 




16 


063A 


1 


D400 


07E8 


* 


STO 


L 


N1ST 


063C 





6103 




LDX 


1 


3 


063D 


1 


6D00 


0819 


* 


STX 


LI 


EMESG62 


063F 





6500 


030E 


LDX 


LI 


782 


0641 


1 


6D00 


0685 




STX 


LI 


RTN1U1 


0643 


1 


6500 


05E9 




LDX 


LI 


POINT 


0645 





6000 


01BA 




STX 


LI 


IL4 



RESTORE ERROR WD CNT 



RESTORE FOR 2 PU RCDS 

SET INTERRUPT TRAP 
VECTOR 

********************************************* 











* 
# 
* 
* 


ROUTINE CONTR! 
THIS ROUTINE CHECK 










* 


SEQUENCE IN WHICH 


064 7 





1010 




LOOP 


SLA 




16 


0648 





D094 




if. 




STO 




RID 


0649 


1 


C400 


05E0 


CNTRL 


LD 


L 


SW1 


064 B 





D037 








STO 




SWCMP 


064C 


1 


4C08 


0658 


* 




BSC 


L 


CN?.o,a 


064E 


1 


D400 


05D0 


CN10 


STO 


L 


RID 


0650 





902C 








S 




RIDCK 


0651 


1 


4C08 


065F 






BSC 


L 


CN25,£ 


0653 





1810 








SRA 




16 


0654 


1 


D400 


05E0 






STO 


L 


SW1 


0656 


1 


D400 


05DD 


£ 




STO 


L 


RID 


0658 


1 


7401 


05DD 


CN20 


MDX 


L 


RID.l 


065A 





C021 








LD 




RTNOM 


065B 


1 


9400 


05DD 


* 




S 


L 


RID 


065D 





4488 


0164 


CN 




BSI 


I 


END,*, 


065F 


1 


6580 


05DD 


25 


LDX 


11 


RID 


0661 


1 


C500 


067D 


& 




LD 


LI 


RTTBL-1 


0663 


1 


D400 


05DE 






STO 


L 


RAD 


0665 


1 


6700 


066E 






LDX 


L3 


CN30 


0667 


1 


6F00 


05E5 






STX 


L3 


MLSCF 


0669 





6F00 


0165 






STX 


L3 


RTNSW 


066B 





6903 








STX 


1 


CN3061 


066C 





4480 


0161 






BSI 


I 


START 


066E 





6500 


0000 


CN30 


LDX 


LI 





0670 





6300 








LDX 


3 





0671 


1 


6F00 


0847 






STX 


L3 


DULP61 


0673 





6301 








LDX 


3 


1 


0674 


1 


6F00 


0845 


* 




STX 


L3 


DULP-1 


0676 





6700 


0187 




LDX 


L3 


391 


0678 


1 


6F00 


06A3 






STX 


L3 


WRECK 



067A 1 4D80 067D 



RESET ROUTINE NUMBER 

BR IF NO RTN SELECTD 
SAVE NEW RTN NUMBER 
BR IF VALID RTN 
IF INVALID RTN GO 

ADV TO NEXT RTN 

END PROGRAM 

SET ROUTINE ADDRESS 

SET MLSCF ENTRY 

SET RTN SWITCH 
SAVE IX 1 
GO TO MONITOR 
RESTORE IX 1 
RESTORE CHAR RTN 

SET RECORD LENGTH 



BSC II RTTBL-1 BR TO ROUTINE 

********************************************* 



30B01380 

30B01390 

30B01400 

30B01410 

30B01420 

30B01430 

30B01440 

30B01450 

30B01460 

30B01470 

30B01480 

30B01490 

30B01500 

30B01510 

30B01520 

30B01530 

30B01540 

30B01550 

30B01560 

30B01570 

30B01580 

30B01590 

30B01600 

30B01610 

30B01620 

30B01630 

30B01640 

30B01650 

30B01660 

30B01670 

30B01680 

30B01690 

30B01700 

30B01710 

30B01720 

30B01730 

30B01740 

30B01750 

30B01760 

30B01770 

30B01780 

30B01790 

30B01800 

30B01810 

30B01820 

30B01830 

30B01840 

30B01850 

30B01860 

30B01870 

30B01880 

30B01890 

30B01900 

30B01910 

30B01920 

30B01930 

30B01940 

30B01950 

30B01960 

30B01970 

30B01980 

30B01990 

30B02000 

30B02010 

30B02020 

30B02030 

30B02040 

30B02050 



067C 0004 
067D 0005 



067E 1 0684 
067F 1 0691 
0680 1 0699 



0681 1 06A4 

0682 1 06C2 

0683 0000 



* 

* 

RTNOM DC 

RIDCK DC 

* 

* 

* 
* 

RTTBL DC 
DC 
NRTN 
* 
* 



NRTN-RTTBL&2 
LRTN-RTTBLS1 

ROUTINE ADDRESS TABLE 

NORMAL ROUTINES 



DC 



RTN1I 

RTN2 

RTN3 



PUNCH ROUTINE 

READER RTN 

PCH 6 RDR CHECK 



OPTIONAL ROUTINES 



DC 
DC 



RTN4I 
RTN5A 



REPRODUCE TAPE 

PCH BIT SW DATA RTN 



SW1 COMPARE WORD 



LRTN 

SWCMP DC /OOOO 

********************************************* 

* 

* 
* 

* 



MAINLINE ROUTINES 



ROUTINE 1 - PUNCH TEST 



0684 6500 030E 

0686 691C 

0687 6500 0187 

0689 69FB 
068A 1 4400 083F 
068C 4053 
0680 1 4C00 072F 

068F 4048 

0690 70F9 



SET FOR 2 RECORDS 

ONE RECORD NEXT TIME 

BUILD NEXT CHARACTER 
PUNCH READY 
PUNCH ONE CHARACTER 
*************** ************** **************** 

RTN1A BSI CRASH CK IF END ROUTINE 
********************************************* 



RTN1I LDX 
STX 
LDX 
STX 
BSI 
BSI 
BSC 



RTN1 



LI 782 

1 WRECK 

LI 391 

1 RTN1IS1 

L MARK 
XKRDY 

L PUNH 



MDX 



RTN1 



NO 



RETURN 











* 
* 
* 
RTN2 






ROUTINE 


0691 


1 


4400 


083F 


BSI 


L 


MARK 


0693 





4062 






BSI 




RRDY 


0694 





7077 






MDX 




FEED 


0695 


1 


4400 


079B 


RTN2A 


BSI 


L 


RDIT 


069 7 





4040 






BSI 




CRASH 


0698 





70F8 




* 
* 
* 
* 
RTN3 


MDX 




RTN2 
ROUTINE 


0699 


1 


4400 


083F 


BSI 


L 


MARK 


069 B 





4044 






BSI 




XKRDY 


069C 





4059 






BSI 




RRDY 


069D 


1 


4C00 


071B 




BSC 


L 


XFEED 


069F 


1 


4400 


079B 


RTN3A 


BSI 


L 


RDIT 


06A1 





4036 






BSI 




CRASH 


06A2 





70F6 




* 
WRECK 


MDX 




RTN3 


06A3 





0000 




DC 




/OOOO 



06A4 4051 
06A5 7066 



> - READER TEST 

BUILD NEXT CHARACTER 
READER READY 
CONTROL READER 
READ AND COMPARE 
CK IF END ROUTINE 
NO - RETURN 



3 - PCH-RD £ COMPARE 

BUILD NEXT CHARACTER 

PUNCH READY 

READER READY 

PUNCH £ CONTROL RDR 

READ AND COMPARE 

CK IF END OF ROUTINE 

NO - RETURN 

RECORD LENGTH COUNTER 
********************************************* 
* 

* ROUTINE 4 - REPRO PAPER TAPE 

* 

RTN4I BSI RRDY 
MDX FEED 
* 



30B02060 

30B02070 

30B02080 

30B02090 

3OB02100 

30B02110 

30B02120 

30B02130 

30B02140 

30B02150 

3OB02160 

30B02170 

30B02180 

30B02190 

30B02200 

30B02210 

30B02220 

30B02230 

30B02240 

30B02250 

30B02260 

30B02270 

30B02280 

30B02290 

30B02300 

30B02310 

30B02320 

30B02330 

30B02340 

30B02350 

30B02360 

30B02370 

30B02380 

30B02390 

30B02400 

30B02410 

30B02420 

30B02430 

30B02440 

30B02450 

30B02460 

30B02470 

30B02480 

30B02490 

30B02500 

30B02510 

30B02520 

30B02530 

30B02540 

30B02550 

30B02560 

30B02570 

30B02580 

30B02590 

30B02600 

30802610 

30B02620 

30B02630 

30B02640 

30B02650 

30B02660 

30B02670 

30B02680 

30B02690 

30B02700 

30B02710 

30B02720 

30B02730 
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NO. 415490 



01MAY66 
415490B 
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06A6 


1 


C400 


05E0 


RTN4 


LD 


L 


SW1 


06A8 





FODA 






EOR 




SWCMP 


06A9 


1 


4C20 


0647 




BSC 


L 


LOOP.Z 


06A8 





4034 






BSI 




XKRDY 


06AC 





4049 






BSI 




RRDY 


06AD 


1 


4C00 


071B 


* 
RTN4A 


BSC 


L 


XFEED 


06AF 


1 


OCOO 


0744 


XIO 


L 


XIORR 


06B1 


1 


C400 


081E 




LD 


L 


CARED 


06B3 


1 


D400 


081F 




STO 


L 


XCHAR 


06B5 





10A0 






SLT 




32 


06B6 


1 


OCOO 


0740 




XIO 


L 


XIOSD 


06B8 


1 


4C10 


06A6 


* 


BSC 


L 


RTN4,- 


06BA 





6116 






LDX 


1 


/0016 


06BB 





6207 






LDX 


2 


7 


06BC 


1 


4400 


0809 




BSI 


L 


PRDSW 


06BE 


1 


6E00 


0819 


* 


STX 


L2 


EMESG62 


06C0 





4035 






BSI 




RRDY 


06C1 





704A 




£ 


MDX 
MDX 




FEED 
RTN4 



06C2 
06C4 
06C6 
06C8 
06C9 
06CB 
06CC 
06CD 
06CE 
06CF 
06U0 
06DI 
06D3 
06D4 
0606 
06D7 



6700 0000 

1 OCOO 0746 
1 C400 0754 

1300 

1 0400 081F 
C0F7 

4830 
6300 
4808 
6308 

6BF2 

1 C400 05E0 

FOAF 

1 4C20 0647 
4009 

7057 



0608 0000 
06D9 1 74FF 06A3 
060B 7002 

060C 1 4C00 0649 

06DE 1 4C80 06D8 



06E0 0000 
06E1 085E 
06E2 D070 



BR IF END THIS RTN 
PUNCH READY 
READER READY 
PUNCH £ CONTROL RDR 

READ RDR BUFFER 
PLACE CHAR READ IN 
OUTPUT AREA 

SENSE DSW 

BR IF NO DSW ERRORS 

PRINT RDR ERROR 

PRINT THE ERROR 



READER READY 
CONTROL READER 



********************************************** 

* 

* ROUTINE 5 - PUNCH FROM BIT SWITCHES 

* 



RTN5A LDX L3 /OOOO 
RTN5B XIO L ROBS 



LD 

SLA 

STO 

LD 

BSC 

LDX 

BSC 

LDX 

RTN5D STX 
LD 
EOR 
BSC 
BSI 
MDX 

* MDX 



L BITSW 

3 
L XCHAR 
RTN5A61 
-Z 
3 
£ 
3 8 

3 RTN5A61 
L SW1 

SWCMP 
L LOOP,Z 
XKRDY 
PUNH 
RTN5A 



READ THE BIT SWITCHES 



SAVE NEXT PCH CHAR 



BR IF END THIS RTN 
CHECK PUNCH READY 
PUNCH THE CHARACTER 



********************************************* 

* 
* 
* 
* 
* 



COUNT CHARACTERS SUBROUTINE 



CRASH DC 
MDX 
MDX 

* 

BSC 

* 

RASH BSC 

* 

********************************************* 

* 

* 

* PUNCH READY SUBROUTINE 



/OOOO 

WRECKt-1 

RASH 

CNTRL 

CRASH 



IS RTN COMPLETE 
DECREMENT CHSR CNTR 



BR - END OF RECORD 
RET IF RCD NOT CMPLT 



XKRDY DC 
XIO 
STO 

* 



/OOOO 
XIOSD 
DSWAS 



SENSE AND SAVE DSW 



30B02740 
30B02750 
30B02760 
30B02770 
30B02780 
30B02790 
30B02800 
30B02810 
30B02820 
30B02830 
30B02840 
30B02850 
30B02860 
30B02870 
30B02880 
30B02890 
30B02900 
30B02910 
30B02920 
30B02930 
30B02940 
30B02950 
30B02960 
30B02970 
30B02980 
30B02990 
30B03000 
30B03010 
30B03020 
30B03030 
30B03040 
30B03050 
30B03060 
30B03070 
30B03080 
30B03090 
30B03100 
30B03110 
30B03120 
30B03130 
30B03140 
30B03150 
30B03160 
30B03170 
30B03180 
30B03190 
30B03200 
30B03210 
30B03220 
30B03230 
30B03240 
30B03250 
30B03260 
30B03270 
30B03280 
30B03290 
30B03300 
30B03310 
30B03320 
30B03330 
30B03340 
30B03350 
30B03360 
30B03370 
30B03380 
30B03390 
30B03400 
30B03410 



06E3 E065 

06fc4 1 4C98 06E0 

06E6 1007 
06E7 1 4C10 06ED 
06E9 1 CCOO 0888 
06EB 1 DCOO 081A 

06ED 6105 
06EE C864 
06EF E05F 
06F0 18D0 
06F1 1 4400 0809 

06F3 1 4400 0830 
06F5 70EB 



06F6 OOOO 
06F7 0848 
06F8 D05A 

06F9 E04E 

06FA 1 4C98 06F6 

06FC 1005 
06FD 1 4C10 0703 
06FF 1 CCOO 0886 
0701 1 DCOO 081A 

0703 6104 

0704 C84E 

0705 E048 

0706 18D0 

0707 1 4400 0809 

0709 1 4400 0830 
070B 70EB 



070C 6101 
070D 1 6D00 062E 

070F 0832 



AND 
BSC 

SLA 
BSC 
LDD 
STD 



XMASK 
XKRDY, £- 

7 

XKRD2,- 
PNRDY 
EMESG63 



REMOVE RDR NRDY BIT 

BR IF DSW OKAY 

DSW ERROR 

BR IF PUNCH READY 

SET PUNCH NOT READY 



XKRD2 LDX 

LDD 

AND 

RTE 

BSI 
* 

BSI 

MDX 

*************************** ****************** 
* 
* 
* 
* 



1 5 

DSWAS 
POFF 
16 
L PRDSW 

L TIME 

XKRDYS1 



ERROR - 5 

PRINT THE ERROR 
PAUSE BEFORE RECHECK 



RRDY DC 
XIO 
STO 

AND 

BSC 



/OOOO 
XIOSD 
DSWAS 



READER READY SUBROUTINE 
SENSE AND SAVE DSW 



RMASK 
I RRDY, 6- 



REMOVE PCH NRDY BIT 

BR IF DSW OKAY 

DSW ERROR 

BR IF READER READY 

SET NOT READY MSG 



SLA 5 

BSC L RRDY2,- 

LDD L RNRDY 

STD L EMESG&3 
RRDY2 LDX 1 4 

LDD DSWAS 
AND ROFF 
RTE 16 

BSI L PRDSW 
* 

BSI L TIME 

MDX RRDYS1 

********************************************* 
* 



ERROR - 4 

PRINT THE ERROR 
PAUSE BEFORE RECHECK 



* 

FEED LDX 
STX 

* 

XIO 



1 1 

LI INTEX 
XIOFD 



071B 1 6500 05FD 



CONTROL READER SUBROUTINE 

SET READER INTRPT 
EXPECTED 

FEED READER 

SAVE BUSY DSW 

CHECK BUSY DSW 

PAUSE FOR INTRPT 
NO READ INTERPT 
ERROR - 11 



GO PRINT THE ERROR 

**************************** ***************:;;* 
* 

* PUNCH AND CONTROL READER 

* SUBROUTINE 

* 

XFEED LDX LI DINT1 RESTORE DOUBLE INT 



0710 





082F 






XIO 




XIOSD 


0711 





D03F 






STO 




DSW BY 


0712 


1 


4400 


0788 


* 
* 


BSI 


L 


BSYES 


0714 


1 


4400 


0830 


BSI 


L 


TIME 


0716 





6111 




LDX 


1 


/0011 


0717 





C839 






LDD 




DSWBY 


0718 





E035 






AND 




ROFF 


0719 





E831 






OR 




DSWR2 


071A 





705F 






MDX 




DINE5 



30B03420 
30B03430 
30B03440 
30B03450 
30B03460 
30B03470 
30B03480 
30B03490 
30B03500 
30B03510 
30B03520 
30B03530 
30B03540 
30B03550 
30B03560 
30B03570 
30B03580 
30B03590 
30B03600 
30B03610 
30B03620 
30B03630 
30B03640 
30B03650 
30B03660 
30B03670 
30B03680 
30B03690 
30B03700 
30B03710 
30B03720 
30B03730 
30B03740 
30B03750 
30B03760 
30B03770 
30B03780 
30B03790 
30B03800 
30B03810 
3OB0382O 
30B03830 
30B03840 
30B03850 
30B03860 
30B03870 
30B03880 
30B03890 
30B03900 
30B03910 
30B03920 
30B03930 
30B03940 
30B03950 
30B03960 
30B03970 
30B03980 
30B03990 
30B04000 
30B04010 
30B04020 
30B04030 
30B04040 
30B04050 
30B04060 
30B04070 
30B04080 
30B04090 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490B 



15N0V66 
419643 



PROG ID 
PAGE 



030B-2 
3 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490B 



15N0V66 
419643 



PROG ID 
PAGE 



030B-2 
3A 



}M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
*PER TAPE READER/PUNCH FUNCTION TEST 



PART NO. 2191232 
PAGE 4 



0710 


1 


6000 


05FC 


* 


STX 


LI 


DINT1-1 


SWITCH 


30B04100 
30B04110 


071F 





6103 






LDX 


1 


3 


SET DOUBLE INTRPT 


30B04120 


0720 


1 


6000 


062E 


* 


STX 


LI 


INTEX 


EXPECTED 


30B04130 
30B04140 


0722 





081B 






XIO 




XIOXX 


FEED AND PUNCH 


30B04150 


0723 





081E 




* 


XIO 




XIOFD 




30B04160 
30B04170 


0724 





081B 






XIO 




XIOSD 


SAVE BUSY DSW 


30B04180 


0725 





D02B 






STO 




DSWBY 




30B04190 


0726 


1 


4400 


0788 


* 


BSI 


L 


BSYES 


CHECK BUST DSW 


30B04200 
30B04210 


0728 


1 


4400 


0830 


* 


BSI 


L 


TIME 


PAUSE FOR INTERRUPT 


30B04220 
30B04230 


072A 





C026 






LD 




DSWBY 


LOST INTERPT 


30B04240 


072B 





6113 






LDX 


1 


/0013 


ERROR - 13 


30B04250 


072C 





18D0 






RTE 




16 




30B04260 


0720 





COIF 






LD 




DSWRX 




30B04270 


072E 





704B 






MDX 




DINE5 


GO PRINT THE ERROR 


30B04280 










*«**#*«$*******»*****«******* ********#******* 


30B04290 










* 










30B04300 










* 






PUNCH 


SUBROUTINE 


30B04310 










* 










30B04320 


072F 





6102 




PUNH 


LDX 


1 


2 


SET PUNCH INTRPT 


30B04330 


0730 


1 


6D00 


062E 


* 


STX 


LI 


INTEX 


EXPECTED 


30B04340 
30B04350 


0732 





080B 




* 


XIO 




XIOXX 


PUNCH CHARACTER 


30B04360 
30B04370 


0733 





080C 






XIO 




XIOSD 


SAVE BUSY DSW 


30B04380 


0734 





001C 






STO 




DSWBY 




30B04390 


0735 


1 


4400 


0788 


* 


BSI 


L 


BSYES 


CHECK BUSY DSW 


30B04400 
30B04410 


0737 


1 


4400 


0830 


* 


BSI 


L 


TIME 


PAUSE FOR INTERRUPT 


30B04420 
30B04430 


0739 





C817 






LDD 




DSWBY 


NO PUNCH INTERPT 


30B04440 


073A 





6112 






LDX 


1 


/0012 


ERROR - 12 


30B04450 


073B 





E013 






AND 




POFF 




30B04460 


073C 





E80F 






OR 




0SWX2 




30B04470 


0730 





703C 






MDX 




DINE5 




30B04480 










X******************************************** 


30B04490 










* 










30B04500 










* 










30B04510 


073E 




0000 






BSS 


E 






30B04520 


073E 


1 


081F 




XIOXX 


DC 




XCHAR 


PUNCH IOCC 


30B04530 


073F 





1900 






DC 




/1900 




30B04540 


0740 





0000 




XIOSD 


DC 




/OOOO 


SENSE DSW IOCC 


30B04550 


0741 





1F01 






DC 




/1F01 




30B04560 


0742 





0000 




XIOFD 


DC 




/OOOO 


FEED IOCC 


30B04570 


0743 





1C10 






DC 




/1C10 




30B04580 


0744 


1 


081E 




XIORR 


DC 




CARED 


READ IOCC 


30B04590 


0745 





1A00 






DC 




/1A00 




30B04600 


0746 


1 


0754 




ROBS 


DC 




BITSW 


READ BIT SWITCHES 


30B04610 


0747 





3A00 






DC 




/3A00 




30B04620 


0748 





FEFF 




RMASK 


DC 




/FEFF 


READER MASK 


30B04630 


0749 





FBFF 




XMASK 


DC 




/FBFF 


PUNCH MASK 


30B04640 


074A 





FFFF 






DC 




/FFFF 


MINUS ONE 


30B04650 


074B 





OCOO 




DSWR2 


DC 




/OCOO 


RDR BUSY EXP DSW 


30B04660 


074C 





0300 




DSWX2 


DC 




/0300 


PCH BUSY EXP DSW 


30B04670 


0740 





OFOO 




DSWRX 


DC 




/OFOO 


DOUBLE BUSY DSW EXP 


30B04680 


074E 





0100 




ROFF 


DC 




/0100 




30B04690 


074F 





0400 




POFF 


DC 




/0400 




30B04700 


0750 





0000 






DC 




/OOOO 




30B04710 


0751 





0000 




DSWBY 


DC 




/OOOO 


LAST BUSY DSW 


30B04720 


0752 





0000 






DC 




/OOOO 


NOT USED 


30B04730 


0753 





0000 




OSWAS 


DC 




/OOOO 


LAST DSWER PRINTED 


30B04740 


0754 





0000 




BITSW 


DC 








30B04750 










#***************#****#*##**********#****#***<< 


30B04760 










* 










30B04770 
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0755 6101 

0756 1 6D00 0819 

0758 6120 

0759 1 C400 0623 
075B 1 4400 0809 



075D 4480 0161 



075F 6500 OOOO 



0761 1 CCOO 0623 
0763 1 E500 074D 
0765 1 EDOO 062B 

0767 7105 

0768 7011 



0769 1 C400 0623 



SPUR 



076B 18D0 
076C 6108 
076D 700A 



076E 
0770 
0771 
0773 
0775 
0776 



1 C400 0623 

18D0 

1 C400 0624 
1 4C20 0777 
6109 

7001 



0777 6110 

0778 1 C400 062B 
077A 18D0 
077B 1 4400 0809 

077D 1010 
077E 1 D400 05E7 
0780 1 6580 05DD 

0782 C063 

0783 1 4D98 087E 

0785 1810 

0786 D05F 

0787 7014 



0788 
0789 
078B 
078C 
078E 
0790 



OOOO 

6D00 0760 
C0C5 

E500 0747 
F500 074A 
4C98 0788 



0792 C8BE 

0793 1 E500 074D 
0795 1 EDOO 074A 



LDX 

STX 

LDX 

LD 

BSI 



1 1 

LI EMESG&2 

1 /20 

L DSW IT 

L PRDSW 



ERROR - 20 

PRINT DSW ERROR 

* SPURRIOUS OR NON- 

* RESETABLE INTERRUPT 
BSI I START 

* 

PRINT DSW ERRORS DETECTED 
DURING INTERRUPT 



* 

NIPES LDX LI /OOOO 

* 

* 



PRINT DSW ERROR 
DETECTED WHILE 
RUNNING RTN 1 OR 
RTN 2 



LDD 
AND 
OR 
MDX 
MDX 
* 

DINE1 LD 

* 

* 

RTE 
LDX 
MDX 

* 

DINE2 LD 
RTE 
LD 
BSC 
LDX 
MDX 

* 

DINE3 LDX 

DINE4 LD 

DINE5 RTE 
BSI 

* 

DINE6 SLA 
STO 
LDX 
LD 
BSC 

* 

SRA 
STO 
MDX 



L DSW IT 
LI ROFF-1 
LI INTEX-3 
1 5 

DINE5 



DSW IT 



16 
1 8 

DINE4 

L DSW IT 

16 
L BUMRQ 
L DINE3.Z 
1 9 

DINE4 

1 /0010 
L INTED 

16 
L PRDSW 



ERROR 



6 OR 7 



PRINT DSW ERROR 
DETECTED WHILE 
RUNNING RTN 3 OR 
RTN 4 



ERROR 



8 



SEQ SVC REQ ERROR 



BR IF 1ST SVC REQ OK 

ERROR - 9 



ERROR 



10 



PRINT THE ERROR 



INTRPT RECEIVED 

BLOCK TIMER RETURN 
RET TO MAINLINE RTN 



16 
L MLSCFS2 
II RID 

ERRET 
II SORTS-l.E- BR IF NO ERROR LAST 



16 RETURN TO FINISH 

ERRET ALIGNING TAPE 
READ IN READER 

CHECK BUSY DSW 



* 

* 

BSYES DC 
STX 
LD 
AND 
EOR 
BSC 

LDD 
AND 

OR 



/OOOO 
LI NIPESG1 

DSWBY 
LI RMASK-1 
LI DSWR2-1 
I BSYEStE.- 

DSWBY 
LI ROFF-1 
LI DSWR2-1 



FETCH LAST DSW SENSED 
AFTER I/O COMMAND 



BR IF DSW OK 
PRINT DSW ERROR 
ERROk - 1 OR 2 OR 3 



30B04780 
30B04790 
30B04800 
30B04810 
30B04820 
30B04830 
30B04840 
30B04850 
30B04860 
30B04870 
30B04880 
30B04890 
30B04900 
30B04910 
30B04920 
30B04930 
30B04940 
30B04950 
30B04960 
30B04970 
30B04980 
30B04990 
30B05000 
30B05010 
30B05020 
30B05030 
30B05040 
30B05050 
30B05060 
30B05070 
30B05080 
30B05090 
30B05100 
30B05110 
30B05120 
30B05130 
30B05140 
30B05150 
30B05160 
30B05170 
30B05180 
30B05190 
30B05200 
30B05210 
30B05220 
30B05230 
30B05240 
30B05250 
30B05260 
30B05270 
30B05280 
30B05290 
30B05300 
30B05310 
30B05320 
30B05330 
30B05340 
30B05350 
30B05360 
30B05370 
30B05380 
30B05390 
30B05400 
30B05410 
30B05420 
30B05430 
30B05440 
30B05450 
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0797 18D0 

0798 4070 



0799 1 4C80 0788 



RTE 
BSI 



16 
PRDSW 



PRINT THE ERROR 



079B 0000 
079C 1 C400 081E 
079E 1 D400 0821 
07AO 08A3 

07A1 1 C400 081E 
07A3 D045 

07A4 089F 
07A5 C043 
07A6 F077 
07A7 1 4C20 07C5 



07A9 1 C400 081F 
07AB F072 
07AC 1808 
07AD 1 4C20 07CC 
07AF 1 7401 07E7 
07B1 7055 



07B2 
07B3 
07B5 
07B7 
07B8 
07BA 
07BB 
07BC 
07BE 
07BF 
07C0 
07C1 
07C2 
07C3 
07C4 

07C5 
07C6 
07C7 
07C8 
07C9 



6835 

6500 A001 

1 CCOO 088A 

406A 

1 C400 05E1 
1009 

1809 

1 0400 05E1 
1810 

D02B 
C02C 
D028 
6164 
6928 
7042 



C023 
18D0 
C056 
6118 



XBSYX BSC I BSYES EXIT TO USER 

* 

********************************************* 

* 

* 
* 
* 
* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

# 

RD 

RE 



READ AND COMPARE SUBROUTINE 

THIS ROUTINE READS THE READER BUFFER TWICE 
TO ENSURE THE SAME DATA IS READ. THEN IT 
COMPARES THE DATA READ WITH WHAT SHOULD HAVE 
BEEN READ. IF AN ERROR IS FOUND THIS ROUTINE 
WILL REALIGN THE TAPE IN THE READER BEFORE 
RETURNING TO MAINLINE ROUTINE IF THAT OPTION 
WAS SPECIFIED. OTHERWISE ONE ERROR IS PRINTED 
FOR EACH NON-COMPARE. 

AN ERROR WILL ALSO BE PRINTED IF THE ROUTINE 
CANNOT REALIGN THE TAPE IN 100 CHARACTERS. 



IT 
AD 



DC /OOOO 

LD L CARED 

STO L LREAD 

XIO XIORR 



LD 
STO 



1 4400 0809 



07CB 70DD 



RDITO LD 
EOR 
SRA 
BSC 
MDX 
MDX 

* 

STX 

LDX 

LDD 

BSI 

LD 

SLA 

SRA 

STO 

RDITD SRA 
STO 
LD 
STO 
LDX 
STX 
MDX 

* 

RDIT1 LD 
RTE 
LD 
LDX 
BSI 
MDX 



CARED 
SAVIT 



XIO XIORR 
LD SAVIT 
EOR CARED 

BSC L RDIT1,Z 



XCHAR 

CARED 

8 

RDIT2.Z 

C0RCT,1 

RDITE 



N1ST 
LI /A001 
L TEAL 

PTLOG 
L SW2 

9 

9 
L SW2 

16 

BTLNE 

KFFOO 

NOLNE 

1 100 

1 TRIAL 
RDITE 

SAVIT 
16 

CARED 
1 /18 
L PRDSW 
RDITO 



SAVE LAST CHAR READ 
READ CHARACTER 
SAVE CHARACTER READ 



READ 

CHECK IF SAME CHAR 

BR IF ERR IN READ 



DO CHARACTERS 
COMPARE 

BR IF NON COMPARE 

EXIT 

PRINT TAPE ALIGNED 

PRINT THE MESSAGE 
TURN OFF REALIGN SW 

RESET BITLINE CHECK 



EXIT 

CONSECUTIVE READ ERROR 



ERROR - 18 
PRINT THE ERROR 



30B05460 
30B05470 
30B05480 
30B05490 
30B05500 
30B05510 
30B05520 
30B05530 
30B05540 
30B05550 
30B05560 
30B05570 
30B05580 
30B05590 
30B05600 
30B05610 
30B05620 
30B05630 
30B05640 
30B05650 
30B05660 
30B05670 
30B05680 
30B05690 
30B05700 
30B05710 
30B05720 
30B05730 
30B05740 
30B05750 
30B05760 
30B05770 
30B05780 
30B05790 
30B05800 
30B05810 
30B05820 
30B05830 
30B05840 
30B05850 
30B05860 
30B05870 
30B05880 
30B05890 
30B05900 
30B05910 
30B05920 
30B05930 
30B05940 
30B05950 
30B05960 
30B05970 
30B05980 
30B05990 
30B060O0 
30B06010 
30B06020 
30B06030 
30B06040 
30B06050 
30B06060 
30B06070 
30B06080 
30B06090 
30B06100 
30B06110 
30606120 
30B06130 



07CC 





C01B 




* 
RDIT2 


LD 




N1ST 


07CD 


1 


4C20 


07EE 


* 


BSC 


L 


RDIT4,Z 


07CF 





C01B 




LD 




BTLNE 


07D0 





E84D 






OR 




CARED 


07D1 





D019 




* 


STO 




BTLNE 


07D2 





C017 






LD 




NOLNE 


07D3 





E04A 






AND 




CARED 


07D4 





D015 




* 


STO 




NOLNE 


07D5 


1 


74FF 


07EC 


MDX 


L 


TRIAL, -1 


07D7 





7007 




* 


MDX 




R0IT3 


07D8 





C011 




LD 




NOLNE 


07D9 





6119 






LDX 


1 


/0019 


07DA 





18D0 






RTE 




16 


07DB 





COOF 






LD 




BTLNE 


07DC 


1 


4400 


0809 


* 

* 


BSI 


L 


PRDSW 


07DE 





70DF 




MDX 




RDITD 


07DF 





61F8 




RDIT3 


LDX 


1 


-8 


07E0 





6906 






STX 


1 


CORCT 


07E1 


1 


4400 


06F6 




BSI 


L 


RRDY 


07E3 





6802 






STX 





ERRET 


07E4 


1 


4C00 


070C 


* 
ERRET 


BSC 


L 


FEED 


07E6 





0000 




DC 




/OOOO 


07E7 





0000 




CORCT 


DC 




/OOOO 


07E8 





0000 




N1ST 


DC 




/OOOO 


07E9 





0000 




SAVIT 


DC 




/OOOO 


07EA 





FFOO 




NOLNE 


DC 




/FFOO 


07EB 





0000 




BTLNE 


DC 




/OOOO 


07EC 





0064 




TRIAL 


DC 




100 


07ED 





FFOO 




KFFOO 


DC 




/FFOO 


07EE 


1 


C400 


05E1 


RDIT4 


LD 


L 


SW2 


07F0 





1008 






SLA 




8 


07F1 


1 


4C10 


07F6 




BSC 


L 


RDIT6,- 


07F3 





1008 






SLA 




8 


07F4 





D0F3 






STO 




N1ST 


07F5 





70E9 




* 
RDIT6 


MDX 




RDIT3 


07F6 





6114 




LDX 


1 


/0014 


07F7 


1 


CCOO 


0884 




LDD 


L 


WASSB 


07F9 





D820 






STD 




EMESG&3 


07FA 





C025 






LD 




LCHAR 


07FB 





F023 






EOR 




XCHAR 


07FC 


1 


4C18 


0802 




BSC 


L 


RDIT5.6- 


07FE 





COIF 






LD 




CARED 


07FF 





F021 






EOR 




LREAD 


0800 





4818 






BSC 




£- 


0801 





6115 






LDX 


1 


/0015 


0802 





C01C 




RDIT5 


LD 




XCHAR 


0803 





1898 






SRT 




24 


0804 





1088 






SLT 




8 


0805 





C018 






LD 




CARED 


0806 





4002 




* 
RDITE 


BSI 




PRDSW 


0807 


1 


4C80 


079B 


BSC 


I 


RDIT 










*****: 
* 


***************** 










* 
* 
* 






PRI 


0809 





0000 




PRDSW 


DC 




/OOOO 



BR IF TAPE ALIGNED 
BIT LINE OPEN CK 

BIT LINE SHORT CK 

COUNT DOWN 100 MAX 



NO ALIGNMENT ERROR 
ERROR - 19 



PRINT THE ERROR 



READER READY 

CONTROL READER 

RET TO CMPRE IF SET 
TAPE ALIGNMENT 

WORK AREAS 
SAVED CHARACTER 
SOLID LINE CHECK 
OPEN LINE CHECK 
100 TRIALS MAXIMUM 



BR IF NO REALIGN 



DATA READ ERROR 
SET ALPHA MESSAGE 



BR IF BUF S/NB CNGD 

BR IF RDR BUF CNGED 
BUILD ERROR MESSAGE 
ERROR - 14 OR 15 
PRINT THE ERROR 



PRINT ERROR SUBROUTINE 
PRINT ERROR RTN 



30B06140 
30B06150 
30B06160 
30B06170 
30B06180 
30B06190 
30B06200 
30B06210 
30B06220 
30B06230 
30B06240 
30B0625O 
30B06260 
30B06270 
30B06280 
30B06290 
30B06300 
30B06310 
30B06320 
30B06330 
30B06340 
30B06350 
30B06360 
30B06370 
30B06380 
30B06390 
30B06400 
30B06410 
30B06420 
30B06430 
30B06440 
30B06450 
30B06460 
30B06470 
30B06480 
30B06490 
30B06500 
30B06510 
30B0652O 
30B06530 
30B06540 
30B06550 
30B06560 
30B06570 
30B06580 
30B06 590 
30B06600 
30B06610 
30B06620 
30B06630 
30B06640 
30B06650 
30B06660 
30B06670 
30B06680 
30B06690 
30B06700 
30B06710 
30B06720 
30B06730 
30B06740 
30B06750 
30B06760 
30B06770 
30B06780 
30B06790 
30B06800 
30B06810 
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080A D811 

080B 690B 

080C 4480 0162 
080E 1 0817 
080F 0000 

0810 6203 

0811 6A07 

0812 10A0 

0813 D806 

0814 1 6480 0809 



STD 



EMESG65 



SAVE DATA WAS t S/B 



0816 




0000 


0816 





1000 


0817 





0000 


0818 





0000 


0819 





0003 


081A 





0000 


081B 





0000 


081C 





0000 


081D 





0000 


081E 





0000 


081F 





0000 


0820 





0000 


0821 





0000 



0822 0000 

0823 6907 

0824 D809 



0825 





4480 


0163 


0827 


1 


082B 




0828 


1 


6480 


0822 


082A 




0001 




082B 





0001 




082C 





0000 




082D 





0000 




082E 





0000 




082F 





0000 





STX 1 EMESG SAVE MESSAGE ID NO 

BSI I ERROR * 

DC EMESG MESSAGE ADDR * 
DC LOOP ON ERR ADDR * 

♦ IS!)!***************************;************!!!** 

LDX 2 3 



STX 2 EMESG62 
SLT 32 
STD EMESG63 

LDX 10 PRDSW 





BSS 1 


E 


TIMEX 


DC 


/1000 


EMESG 


DC 


/oooo 




DC 


/oooo 




DC 


/0003 




DC 


/oooo 




DC 


/oooo 




DC 


/oooo 


* 


DC 


/oooo 


* 
CARED 


DC 


/oooo 


XCHAR 


DC 


/oooo 


LCHAR 


DC 


/oooo 


LREAD 


DC 


/oooo 



0839 1 6500 0834 
083B 1 6D00 05E7 
083D 4480 0161 



CLEAR ALPHA MESS 
NORMAL £ LOOP RETS 



COUNTER 
MESSAGE ID 
HEX OUTPUT 
WORD COUNT 
ALPHA ADRS 
ALPHA ADRS 
DSWAS 
DSW S/B 



CHARACTER READ 
PUNCH OUTPUT CHAR 
PREVIOUS OUTPUT CHAR 
PREVIOUS CHAR READ 

********************** *********************** 

* 

* LOG MESSAGE SUBROUTINE 

PTLOG DC /OOOO 

STX 1 LGMS SAVE MESSAGE ID 

STD LGMSC3 SAVE MODIFIERS 

****** ***************************** ********** 

BSI 1 LOG * 

DC LGMS ADDR OF MESSAGE * 

********************************************* 

LDX 10 PTLOG NORMAL RETURN 
* 

BSS E 1 

LGMS DC 1 MSG ID 

DC /OOOO HEX OUTPUT 

DC /OOOO DATA ID 

DC /OOOO 

DC /OOOO 
****** ***** * ********************************* 

* 

TIMED DELAY SUBROUTINE 



SET UP COUNTER 

DECREMENT COUNTER 

EXIT TIME UP 
* 

TIME1 LDX LI TIME64 SET FOR REENTRY 
PDSWX STX LI MLSCF&2 
BSI I START 

********************************************* 

* 

* BUILD NEXT CHARACTER 











* 

* 






TIM 


0830 





oooo 




TIME 


DC 




/OOOO 


0831 





6500 


1000 




LDX 


LI 


/1000 


0833 





69E2 






STX 


1 


TIMEX 


0834 


1 


74FF 


0816 




MDX 


L 


TIMEX, -1 


0836 





7002 






MDX 




TIME1 


0837 


1 


4C80 


0830 




BSC 


I 


TIME 



30B06820 
30B06830 
30B06840 
30B06850 
30B06860 
30B06870 
30B06880 
30B06890 
30B06900 
30B06910 
30B06920 
30B06930 
30B06940 
30B06950 
30B06960 
30B06970 
30B06980 
30B06990 
30B07000 
30B07010 
30B07020 
30B07030 
30B07040 
30B07050 
30B07060 
30B07070 
30B07080 
30B07090 
30B07100 
30B07H0 
30B07120 
30B07130 
30B07140 
30B07150 
30B07160 
30B07170 
30B07180 
30B07190 
30B07200 
30B07210 
30B07220 
30B07230 
30B07240 
30B07250 
30B07260 
30B07270 
30B07280 
30B07290 
30B07300 
30B07310 
30B07320 
30B07330 
30B07340 
30B07350 
30B07360 
30B07370 
30B07380 
30B07390 
30B07400 
30B07410 
30B07420 
30B07430 
30B07440 
30B07450 
30B07460 
30B07470 
30B07480 
30B07490 











* 






( 


SUBROUTINE 


30B07500 










* 










30B07510 


083F 





oooo 




MARK 


DC 




/OOOO 




30B07520 


0840 





CODE 






LD 




XCHAR 


SAVE LAST CHARACTER 


30B07530 


0841 





1808 






SRA 




8 




30B07540 


0842 





1008 






SLA 




8 




30B07550 


0843 





DODC 




* 


STO 




LCHAR 




30B07560 
30B07570 


0844 





6500 


0001 




LDX 


LI 


1 


INIT TEST XR1 


30B07580 


0846 





6600 


OOOO 


DULP 


LDX 


L2 





XR2 


30B07590 


0848 


1 


4E80 


0870 


* 


BSC 


12 


WHAT 


GO BUILD CHARACTER 


30B07600 
30B07610 


084A 


1 


C500 


0874 


NRIPX 


LD 


LI 


BITSX 


START NEW RIPPLE 


30B07620 


084C 





D0D2 






STO 




XCHAR 


PATTERN 


30B07630 


084D 





6201 






LDX 


2 


1 




30B07640 


084E 





701D 




* 


MDX 




EXITX 




30B07650 
30B07660 


084F 





COCF 




SRIPX 


LD 




XCHAR 


SHIFT RIPPLE PATTERN 


30B07670 


0850 





1001 






SLA 




1 




3OB07680 


0851 





DOCD 






STO 




XCHAR 




30B07690 


0852 





4820 






BSC 




Z 


SKIP NEXT CH NO BITS 


30B07700 


0853 





7018 






MDX 




EXITX 




30B07710 


0854 





6202 






LDX 


2 


2 




30B07720 


0855 





COIE 






LD 




BITSX 


PLACE ALL BIT CHAR 


30B07730 


0856 





D0C8 






STO 




XCHAR 




30B07740 


0857 





6925 




* 


STX 


1 


COUNX 




30B07750 
30B07760 


0858 


1 


74FF 


087D 


BARX 


MDX 


L 


COUNX, -1 


SKIP WHEN COUNX GO 


30B07770 


085A 





7011 






MDX 




EXITX 




30B07780 


085B 





6200 






LDX 


2 







30B07790 


085C 





7101 






MDX 


1 


1 




30B07800 


085D 





6920 






STX 


1 


KOUNX 




30B07810 


085E 


1 


74F8 


087E 




MDX 


L 


K0UNX,-8 


SKIP EXCEPT END RIPPE 


30B07820 


0860 





7001 






MDX 




ENRIX 


BR TO END RIPPLE ROUT 


30B07830 


0861 





700A 




* 


MDX 




EXITX 


BR TO EXIT 


30B07840 
30B07850 


0862 





6203 




ENRIX 


LDX 


2 


3 


END RIPPLE PATTERN 


30B07860 


0863 





7008 




* 


MDX 




EXITX 




30B07870 
30B07880 


0864 





C018 




ALLBX 


LD 




COUNX 


ALL CHARS PATTERN 


30B07890 


0865 





D0B9 






STO 




XCHAR 




30B07900 


0866 





800E 






A 




ONEEX 


ADD ONE I. E. 0100 


30B07910 


0867 





D015 






STO 




COUNX 




30B07920 


0868 


1 


4C20 


086C 


* 
* 


BSC 


L 


EXITX, Z 




30B07930 
30B07940 
30B07950 


086A 





6101 






LDX 


1 


1 


REINITIALIZE 


30B07960 


086B 





6200 






LDX 


2 







30B07970 


086C 





69D8 




EXITX 


STX 


1 


DULP-1 




30B07980 


086D 





6AD9 






STX 


2 


DULP61 




30B07990 


086E 


1 


4C80 


083F 


* 


BSC 


I 


MARK 


EXIT 


30B08000 
30B08O10 










********************************************* 


30B08020 










* 










30B08030 


0870 


1 


084A 




WHAT 


DC 




NRIPX 


RECORD CONTROL ADRS 


30B08040 


0871 


1 


084F 






DC 




SRIPX 




30B08050 


0872 


1 


0858 






DC 




BARX 




30B08060 


0873 


1 


0864 




* 
* 


DC 




ALLBX 




30B08070 
30B08O80 
30B08090 


0874 





FFOO 




BITSX 


DC 




/FFOO 


CHARACTER PATTERN 


30B08100 


0875 





0100 




ONEEX 


DC 




/0100 


CONSTANTS 


30B08110 


0876 





OOCO 






DC 




/OOCO 




30B08120 


0877 





OOEO 






DC 




/OOEO 




30B08130 


0878 





OOFO 






DC 




/OOFO 




30B08140 


0879 





00F8 






DC 




/00F8 




30B08150 


087A 





OOFC 






DC 




/OOFC 




30B08160 


087B 





OOFE 






DC 




/OOFE 




30B08170 
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087C OOFF 

087D 0000 
087E 0000 



DC 



087F 


1 


068F 


0880 


1 


0695 


0881 


1 


069F. 


0882 


1 


06AF 


0883 


1 


06C2 



0884 




0000 


0884 


1 


0899 


0885 


1 


089C 


0886 


1 


088C 


0887 


1 


08A5 


0888 


1 


088F 


0889 


1 


08A5 


088 A 





0000 


088B 


1 


0892 


088C 





6232 


Q88D 





6200 


■088E 





FFFF 


08 8 F 





561E 


089 





2600 


0891 





FFFF 


0892 





9C3C 


0893 





5434 


0894 





213C 


0895 





5C20 


089 6 





1474 


0897 





3430 


0898 





FFFF 


0899 





923E 


089A 





9A00 


089 B 





FFFF 


089C 





2 19 A 


089D 





BC1A 


089E 





2184 


089F 





2132 


08A0 





3E9E 


08 A 1 





3E21 


08A2 





3662 


08A3 





6200 


0.8 A4 





FFFF 


08A5 





7,662 


08A6 





32A6 


08A7 





FFFF 



* 

COUN 
KOUN 
**** 

* 
* 
* 
* 
* 
SORT 



/OOFF 



X DC /OOOO WORK AREAS 

X DC /OOOO 

****************** *********************** 



ADDRESSES FOR RETURN TO 
MAINLINE AFTER INTRPT 



DC 
DC 
DC 
DC 
DC 



**** 

* 
* 
* 
* 



RTN1A 
RTN2A 
RTN3A 
RTN4A 
RTN5A 



ROUTINE 1 
ROUTINE 2 
ROUTINE 3 
ROUTINE 4 
ROUTINE 



**************************** xxxx*.******** 

ALPHABETIC MESSAGE 
STORAGE AREAS 



BSS 

WASSB DC 

DC 

RNRDV DC 

DC 

PNRDY DC 

DC 

DC 

DC 



TEAL 

* 
ARDR 



* 
APCH 



DC 
DC 
DC 

DC 
DC 
DC 



ATAPE DC 
DC 
DC 
DC 
DC 
DC 
DC 



* 
AWAS 



ASB 



DC 
DC 
DC 



08A8 0631 
NO STATEMENTS 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

ANRDY DC 
DC 
DC 

* 

END 



AWAS 

ASB 

ARDR 

ANRDY 

APCH 

ANRDY 



ATAPE 

/6232 
/6200 
/FFFF 

/561E 
/2600 
/FFFF 

/9C3C 
/5434 
/213C 
/5C20 
/1474 
/3430 
/FFFF 

/923E 
/9A00 

/FFFF 

/219A 
/BC1A 
/2184 
/2132 
/3E9E 
/3E21 
/3662 
/6200 
/FFFF 
/7662 
/32A6 
/FFFF 

PTBGN 



RDR ERROR 



PCH 



TAPE ALIGNED 



WAS 



S/B - DATA ERROR 



NRDY 



FLAGGED IN THE ABOVE ASSEMBLY 



30B08180 

30B08190 

30B08200 

30B08210 

30B08220 

30B08230 

30B08240 

3OBO8250 

30B08260 

30B08270 

30B08280 

30B08290 

30B08300 

30B08310 

30B08320 

30B08330 

30B08340 

30B08350 

30B08360 

30B08370 

30B08380 

30B08390 

30B08400 

30B08410 

30B08420 

30B08430 

30B08440 

30B08450 

30B08460 

30B08470 

30B08480 

30B08490 

30b08500 

30B08510 

30B08520 

30B08530 

30B08540 

30B08550 

30B08560 

30B08570 

30B08580 

30B08590 

30B08600 

30B08610 

30B08620 

30B08630 

30B08640 

30B08650 

30B08660 

30B08670 

30B086 80 

30B08690 

30B08700 

30B08710 

30B08720 

30B08730 

30B08740 

30B08750 

30B08760 

30B08770 

30B08780 

30B08790 

30B08800 

30B08810 



C R 

NAME 

ALLBX 

ANRDY 

APCH 

ARDR 

ASB 

ATAPE 

AWAS 

BARX 

BEGIN 

BITSW 

BITSX 

BSYES 

BTLNE 

BUMRQ 

CARED 

CNTRL 

CN10 

CN20 

CN25 

CN30 

CORCT 

COUNX 

CRASH 

DINE1 

DINE2 

DINE3 

DINE4 

DINE5 

DINE6 

DINT 

D.'NTl 

DINT2 

DINT4 

DSWAS 

DSWBY 

DSWDI 

DSWID 

DSWIT 

DSWRX 

DSWR2 

DSWX2 

DULP 

EINT 

EMESG 

END 

ENRIX 

ERLCK 

ERRET 

ERROR 

exitx 

FEED 

HANDL 

ILt) 

I LI 

IL2 

IL3 

IL4 

INTED 

INTEX 

KFFOO 

KOUNX 

LCHAR 

LGMS 

LOG 

LOGBY 

LOOP 



5 S 
VALU1 
0864 
08A5 
088F 
088C 
089C 
0892 
0899 
0858 
0160 
0754 
0874 
0788 
07EB 
0624 
081E 
0649 
064E 
0658 
065F 
066E 
07E7 
087D 
06D8 
0769 
076E 
0777 
0778 
077A 
077D 
05FA 
05FD 
0608 
0610 
0753 
0751 
0629 
062A 
0623 
074D 
074B 
074C 
0846 
0617 
0817 
0164 
0862 
0166 
07E6 
0162 
086C 
070C 
0626 
017A 
018A 
019A 
01AA 
01BA 

06 2 B 
062E 
07ED 
087E 
0820 
082B 
0163 
0167 
0647 



* E F 
REF 
0873 
0887 
0888 
0886 
0885 
088B 
0884 
0872 
0631 
06C6 
084A 
0712 
07BF 
0612 
06B1 
06DC 



E R E N C 
ERENCES 

,0889 



,0746 

,0855 

,0726,0735,0790,0799 

,07CF,07D1,07DB 

,0771 

, 0744, 079C,07A1,07A6,07AB,07C7,07DO,07D3,07FE, 0805 



064C 

0651 

0665, 066B 

0635,07AF,07EO 

0857,0858,0864,0867 

068F,0697,06A1,06DE 

0605 

060D 

0773 

0760,0776 

071 A, 072E, 0730, 0768 

061C 

0628 

0615,071B,071D 

0613 

0600 

06E2,06EE,06F8,0704 

071 1,0717, 0725, 072A, 0734, 0739, 078B, 0792 

05FD,0602 

05FF,0608 

05EC, 0609 ,0759, 0761, 0769, 076 E 

072D 

0719, 078E, 0795 

073C 

067 1,0674, 08 6C086D 

0625 

063D,06BE,06EB,0701,0756,07F9,080A,080B,080E,0811,081- 
G65D 

0860 

0782, 0786, 07E3 

080C 

084E, 0853, 085A, 086 1,0863, 0868 

0694,06A5,06C1,07E4 

05EF 



0645 
05FA 
05ED 
07C0 
085D 
07FA 
0823 
0825 



,05FE,060A,0778 

,05F1,05F 3, 0620, 0700,0720, 0730, 0765 

,085E 
,0843 
,0824,0827 
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LREAD 

LRTN 

MARK 

MLSCF 

J* I PES 

NOLNE 

NRIPX 

NRTN 

N1ST 

0N6EX 

PDSWX 

PID 

PINT1 

PINT3 

PNRDY 

POFF 

POINT 

PROSW 

PTbGN 

PTLOG 

PUNH 

RAD 

RASH 

RDBS 

RDIT 

RDITD 

RDITE 

RDITO 

RDIT1 

RDIT2 

RD1T3 

RD1T4 

RD1T5 

RDIT6 

READ 

RESRT 

RIU 

RIDCK 

RLtF 

RMASK 

RNRDY 

ROFF 

RQKB 

RQTY 

RRDY 

RRDY2 

RTNOM 

RTNSW 

RTN1 

RTN1A 

RTN1I 

RTN2 

RTN2A 

RTN3 

RTN3A 

RTN4 

RTN4A 

RTN4I 

RTN5A 

RTN5B 

RTN5D 

RTTBL 

SAVIT 

SINT 

SORTS 

SPUR 

SRIPX 

START 



0821 

0682 

083F 

05E5 

075F 

07EA 

084A 

0680 

07E8 

0875 

083B 

05DC 

061E 

061C 

0888 

074F 

05E9 

0809 

0631 

0822 

072F 

05DE 

060E 

0746 

079B 

07BE 

0807 

07A9 

07C5 

07CC 

070F 

07EE 

0802 

07F6 

079C 

0634 

05DD 

067D 

0168 

0748 

0886 

074E 

01BC 

01BB 

06F6 

0703 

067C 

0165 

068A 

068F 

0684 

0691 

0695 

0699 

069F 

06A6 

06AF 

06A4 

06C2 

06C4 

06D0 

067E 

07E9 

05F1 

087F 

0755 

084F 

0161 



,0691, 0699, 086E 

,061E,0667,077E,083B 

,0789 

,0702, 0704,0708 



079E.07FF 

067D 

068A 

0619 

05F7 

07C1 

0870 

067C 

063A,07B2,07CC,07F4 

0866 

0633 

05F9,0607,060F 

05F5, 0603,0606 

06E9 

06EF,073B 

0621,0643 

06BC, 06F1, 0707, 075B.077B, 0798, 07C9,07DC, 0806, 08 14 

08A8 

O7B7,0828 

068D.06D7 

0663 

06DB 

06C4 

0695, 069F, 0807 

07DE 

07B1,07C4 

07CB 

07A7 

07AD 

07D7,07F5 

07CD 

07FC 

07F1 

0787 

05E4,05E6 

0648, 064E, 0656, 0658, 06 5B,065F, 0780 

0650 

062F,06F9,078C 

06FF 

0705,0718,0763,0793 



069 3,069C,06A4,06AC,06CO,06FA,070B,07E1 

06F0 

065A 

0669 

0690 

087F 

0641, 067E, 0689 

067F,0698 

0880 

0680, 06A2 

0881 

0688 

0882 

0681 

0682, 06CB,06D0, 0883 



0661,067A,067C,067D 

07A3,07A5,07C5 

0626,0627 

0783 

0617 

0871 

066C,075D,083D 



SVKB 

SWCMP 

SMO 

SW1 

SW2 

SW3 

TEAL 

TERM 

TIME 

TIMEX 

TIME1 

TRIAL 

WASSB 

WHAT 

WRECK 

XBSYX 

XCHAR 

XFEED 

XIOFD 

XIORR 

XIOSD 

XIOXX 

XIT 

XKRDY 

XKRD2 

XMASK 



01BD 
0683 
05DF 
05E0 
05E1 
05E2 
088A 
05E8 
0830 
0816 
0839 
07EC 
0884 
0870 
06A3 
0799 
081F 
071B 
0742 
0744 
0740 
073E 
0621 
06E0 
06E0 
0749 



064B,06A8,06D3 

0649, 0654, 06A6, 0601 
0637,07B8,07BC,07EE 

07B5 

06F 3, 0709, 07 14, 0728, 07 37, 0837, 08 39 

0833,0834 

0836 

07C3t07D5 

07F7 

0848 

0678, 0686, 06D9 



06B3,06C9,073E,07A9,07FB, 0802, 0840, 084C084F, 085 1,0856, 086 5 



069D,06AD 

070F.0723 

06AF,07A0,07A4 

05EA,06B6,06E1,06F7,0710,0724,0733 

0722,0732 

0616,0616 

068C,069B,06A6,06D6,06E4,06F5 

06E7 

0630, 06E3 



END OF ASSEMBLY 



LAST PAGE 



5ATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490B 



15N0V66 
419643 



PROG ID 
PAGE 



030B-2 
8 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490B 



15N0V66 
419643 



PROG ID 
PAGE 



030B-2 
8A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1132 PRINTER FUNCTION TEST 



PART NO. 2191222 
PAGE 1 



TABLE OF CONTENTS 



PARAGRAPH 



PAGE 



1. 
2. 



PURPOSE 1 

PREREQUISITES 1 

2.1 PROGRAM REQUIREMENTS 

2.2 EQUIPMENT REQUIREMENTS 

OPERATING PROCEDURE • • 2 

3.1 PROGRAM LOADING 

3.2 PROGRAM OPERATION 

3.2.1 PROGRAM CONTROL OPTIONS - FUNCTION 

3.2.2 ROUTINE SELECTION - FUNCTION 1 

3.2.3 OPTIONAL CONTROL 

3.2.4 LOCK ON FUNCTION CONTROL 

3.3 HALTS 

3.3.1 NORMAL HALTS 

3.3.2 ERROR HALTS 

3.4 PROGRAM TERMINATION 

3.5 RESTART 



PRINTOUTS. 



4.1 
4.2 



STATUS MESSAGES 
ERROR MESSAGES 



5. COMMENTS 



5.1 TYPICAL PROGRAM PASS 

5.2 TEST PROCEDURE 

5.2.1 TEST ORGANIZATION 

5.2.2 ERROR CHECKING 

5.3 ROUTINE DESCRIPTION 

5.3.1 TEST SEQUENCE CONTROL ROUTINE - CMTRL 

5.3.2 NORMAL TEST ROUTINE 

5.3.3 OPTIONAL TEST ROUTINE 

5.3.4 TEST SUBROUTINES 

5.3.5 ERROR CONTROL ROUTINES 

5.3.6 INTERRUPT ROUTINE 



10 



6. APPENDIX .......................... 

6.1 SAMPLE OUTPUT 

1. PURPOSE 

THE 1132 FUNCTION TEST IS DESIGNED TO CHECK THE OPERATING PERFORMANCE OF THE 
1132 PRINTER AND TO AID IN ITS PROPER ADJUSTMENT. 

2. PREREQUISITES 

2.1*** PROGRAM PREREQUISITES 
DIAGNOSTIC MONITOR II 
2.2*** EOUIPMENT PREREQUISITES 

1. 1131 CPU WITH PROGRAM LOAD FROM CARDS OR PAPER TAPE. 

2. 1132 PRINTER WITH EC 419621. 

3. AT LEAST 2000 WORDS OF AVAILABLE CORE STORAGE. 

4. ANY CARRIAGE TAPE. SEE SECTION 5.3.2.8.. 

A TAPE 66 SPACES LONG* PUNCHED WITH CHANNEL 1,2,3,4,5,6,9, AND 12 
SIX SPACES APART, MAY BE USED. 
********** 
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3. OPERATING PROCEDURE 

THESE OPERATING PROCEDURES APPLY TO SINGLE PROGRAM OPERATION ONLY. 
FOR OVERLAP OPERATION REFER TO SECTION 3.2.3 OF THE 1130 DIAGNOSTIC 
MONITOR II DOCUMENTATION. 

3.1*»* PROGRAM LOADING 

STANDARO MONITOR LOAOING PROCEDURES APPLY 

THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEOURE FOR 
OETAILS. 

1. SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEFT MARGIN. 

2. SET BIT SWITCH 15 OFF - LOAO AND GO 

ON - TO HALT AFTER LOAOING 

IF HALTED AFTER LOADING, SELECT PROGRAM 
OPTIONS THEN TURN OFF HALT SNITCH OR 
FOLLOW NORMAL RESTART PROCEDURE (SEC 3.5) 

3. LOAD DIAGNOSTIC MONITOR, ANO 1132 FUNCTION TEST. 

••*••• 



3.2»»» PROGRAM OPERATION. 

3.2.1 PROGRAM CONTROL - FUNCTION 



SET SWITCHES 0-7 TO 01. 

SET SNITCHES 8-15 FOR DESIRED FUNCTION. 



sw 



FUNCTION 



8 

9 
10 
11 
12 
13 
14 
15 



RESTART 

ROUTINE START MESSAGE 

LOCK ON FUNCTION 

LOOP PROGRAM 

LOOP ON ERROR 

BYPASS EFROR PRINTOUT AND 1132 PRINT 

HALT ON ERROR 

HALT 



3. 



PRESS INT REQ KEY ON CONSOLE. 

** 



DATE 


02JAN66 


01MAY66 


01JUL66 


15N0V66 


15JUN67 


15JAN68 


26AUG68 


PROG ID 


030C-» 


EC NO. 


415490 


415490B 


415490C 


419643 


420317 


420403 


420403A 


PAGE 


1A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1132 PRINTER FUNCTION TEST 



PART NO. 2191222 
PAGE 2 



3.2.2 ROUTINE SELECTION - FUNCTION 1 

THE SELECTED ROUTINE HILL LOOP UNTIL A NEN ROUTINE IS SELECTED. 

1. TO SET ROUTINE SELECTION 

A. SET SWITCHES 0-7 TO 41. 

B. SET ROUTINE NUMBER IN SWITCHES 12-15. 



RTN 



DESCRIPTION 



1 


EMIT SEQUENCE 


. NORMAL ROUTINES- 


2 


PRINT SCAN CHECK INDICATOR . 


. THE PROGRAM STARTS WITH 


3 


SPACE WITH PRINTER OFF 


. ROUTINE It RUNS EACH 


4 


SPACE WITH PRINTER ON 


. ROUTINE IN SEQUENCE 


5 


RIPPLE PRINT 


. THEN TERMINATES AFTER 


6 


PRINT ALL CHARACTERS 


. ROUTINE A. 


7 


STRESS TEST 




8 


CHANNEL IDENTIFICATION 




9 • SKIP WITH PRINTER OFF 




A • SKIP WITH PRINTER ON 




B • BIT SWITCH CONTROL 


, OPTIONAL ROUTINES - RUN 






. ONLY IF SELECTED 



• - REFER TO SECTION 3.2.3 FOR SPECIAL INSTRUCTIONS. 
C. PRESS INT REQ KEY ON CONSOLE. 
2. TO RESET ROUTINE SELECTION SET AS IF SELECTING ROUTINE ZERO. 



3.2.3 OPTIONAL CONTROL 

1. PRINT ANY CHARACTER 



TEST ROUTINE B ALLOWS THE C.E. TO SPECIFY THROUGH THE BIT 
SNITCHES THE CHARACTER HE DESIRES TO PRINT AND THE COLUMN IN 
WHICH IT WILL BE PRINTED. ONLY ONE CHARACTER WILL BE PRINTED ON 
EACH LINE. 

TO SPECIFY THE CHARACTER AFTER SELECTING ROUTINE B 

A. SET COLUMN NUMBER UN BINARY) IN SNITCHES 1-7. 

B. SET THE CHARACTER CODE IN SWITCHES 8-15. 

C. TURN ON SNITCH 0. 

2. MODIFY SPACE IDLE TINE 

IN ALL ROUTINES THE PROGRAM WILL NORMALLY TAKE 16 IDLES BEFORE 
SPACING AFTER PRINT. THIS IDLE TINE CAN BE INCREASED 
OR DECREASED AS FOLLOWS. 

A. SET SWITCHES 0-7 TO CI. 

B. SET SWITCHES 8-15 TO DESIRED NUMBER OF IDLES (IN BINARY) 

C. PRESS INT REG KEY. 
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3. SPECIFY CHANNEL TO SKIP TO 

ROUTINES 9 AND A, A CHANNEL CAN BE SELECTED BY A FUNCTION 
SWITCH ENTRY. THE ROUTINE WILL THEN SKIP TO THAT CHANNEL 
Y. AFTER ENTERING THE ROUTINEt THE CHANNEL IS SPECIFIED 
SETTING THE BIT SWITCHES TO 81XXX WHERE XX EQUALS THE OSW 

CODE FOR THE DESIRED CHANNEL. 
CHARACTER EMIT CODE • CHARACTER EMIT CODE 



CHARACTER EMITTER COOE 



1 
2 
3 

4 
5 
6 
7 
8 
9 




Fl 


• 


F2 


• 


F3 


• 


F4 


• 


F5 


* 


F6 


• 


F7 


• 


F8 


• 


F9 


• 


FO 


• 


7E 


* 


5B 


• 


4B 


• 


7D 


• 


6B 


• 


50 


• 


60 


• 


4D 


• 


4E 


• 


61 


• 


5C 


• 


5D 


• 




* 




• 




• 




• 




• 



J 

K 

L 
M 
N 

P 
Q 
R 
E 
G 
W 
X 
V 

z 

A 
B 
C 
D 
F 
H 
I 
S 
T 
U 
V 



Dl 
D2 
03 
04 
D5 
D6 
07 
DB 
09 
C5 
C7 
E6 
E7 
E8 
E9 
CI 
C2 
C3 
C4 
C6 
C8 
C9 
E2 
E3 
E4 
E5 



NOTE - THIS TABLE GIVES THE CHARACTERS IN THE 
NORMAL EMIT CODE SEQUENCE. 
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3.2.4 LOCK ON FUNCTION CONTROL 



Ht 



LOCK ON FUNCTION HILL LOOP ON THE PRIMARY FUNCTION IN EACH ROUTINE 
AS FOLLOWS. 



RTN 



FUNCTION 



1 I OLE TO CHECK EMIT SEQUENCE 

2 IDLE WITH SCAN CHECK 

3 LOCK ON 1,2,3,9 OR 39 SPACES 

4 SAME AS RTN 3 

5 PRINT RIPPLE WITHOUT ADVANCING 
PATTERN 

6 PRINT WITHOUT ADVANCING DATA. 

7 LOOP ON PRINT 

8 LOCK ON .SPACE TO CHANNEL 
OR LOCK ON SKIP TO CHANNEL 

9 LOCK ON SKIP TO SAME CHANNEL. 
A SAME AS RTN 9 

NOTE - IN ROUTINE 3 OR 4, THE 39 SPACES EQUALS ONE REVOLUTION 

OF THE PLATTEN WHEN THE CARRIAGE IS SET TO 6 LINES PER INCH. 



3.3*** PROGRAM HALTS 
3.3.1 NORMAL HALTS 



HALT NO. 
(B REG). 



DESCRIPTION 



3001 
3002 



PROGRAM STOP OR ADDRESS STOP 
HALT ON ERROR 



RESTART 
ACTION 



PRESS START 

DISPLAV MODE-PRESS START 
RUN MODE-PRESS START 
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3.3.2 ERROR HALTS 



.HALT NO 
•IB REG) 

. 30F1 


DESCRIPTION 


RESTART 
ACTION 


CHECK SUM ERROR ON FIRST 
CARD OF LOADER 


RELOAD I 


. 30F2 


READER OSW ERROR WHEN 
LOADING LOADER 


RELOAD * 


. 30F3 


CARO 2 CF LOADER DID NOT 
LOAD 


RELOAD * 


. 30F4 . 


CAN NOT CLEAR CORE - DUE TO . 
ERROR IN ADDRESSING UPPER 
CORE. 




. 30F5 , 


READER CHECK WHEN LOADING 
MONITOR OR TEST PROGRAM 


NPRO THEN PLACE CARDS '. 
RUN OUT IN FRONT OF 
REMAINING DECK AND PRESS. 
START. 


. 30F6 


MONITOR 010 NOT LOAD 


RELOAD ". 


. 30F7 , 


CHECK SUM WHEN LOAOING 
MONITOR 


RELOAD I 


. 30F8 . 


READER NOT READY 


MAKE READER READY '. 


. 30F9 . 


INVALID INTERRUPT WHICH WILL . 
NOT RESET 


PRESS RESET AND START 


. 30FA 


CONSOLE PRINTER HANG UP - 
BUSY WILL NOT GO OFF 


FIX THE CONSOLE PRINTER . 
OR NOP THIS WAIT 



3.4*** PROGRAM TERMINATION 

IF LOOP PROGRAM HAS NOT BEEN SPECIFIED THE PROGRAM WILL TERMINATE 

AT THE END OF ROUTINE A. ROUTINE B WILL RUN ONLY IF 

SELECTEO. 

IF ANY ROUTINE IS SELECTED THAT ROUTINE WILL LOOP AND WILL NOT 
TERMINATE. 

****** 

3.5*** RESTART 

1. SET SWITCHES 0-7 TO 01. 

2. TURN ON SWITCH 8. 

3. SET DESIRED CONTROL IN SNITCHES 9-14. 

4. PRESS INTERRUPT REQUEST KEY. 
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4. PRINTOUTS 



ALL PRINTOUTS ARE IN THE STANDARD FORMAT. 

(MESSAGE) 
(MESSAGE) 



APPNN OORR AAAA 

OR 

EPPNN OORR AAAA 



WHERE A IDENTIFIES STATUS MESSAGES 
E IDENTIFIES ERROR MESSAGES 
PP IS THE 10 OF THE PROGRAM CAUSING THE MESSAGE 

THIS HILL BE EITHER 00 FOR MESSAGES 
ORIGINATED BY THE MONITOR OR 
OC FOR MESSAGES ORIGINATED BY 
THIS PROGRAM. 



NN 

RR 

AAAA 

MESSAGE 

«.!•*• STATUS MESSAGES 



IS THE MESSAGE SEQUENCE NUMBER 

IS THE ROUTINE NUMBER 

IS THE ADDRESS OF THE ROUTINE 

IS ANY VARIABLE INFORMATION 



AOOOO 



NUM PIO ADRS RELF 
XXXX XXXX XXXX XXXX 



LD 



THIS MESSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM 
(EXCEPT MONITOR). THE MESSAGE GIVES THE LOAD SEOUENCE NUMBERt 
THE PROGRAM ID t THE ADDRESS INTO WHICH THE PROGRAM MAS LOADED t 
AND THE RELOCATION FACTOR. 



A0001 SMS PIO 

XXXX XXXX 

THIS MESSAGE IS PRINTED EACH TIME A VALID SM1TCH ENTRY IS READ 
BY THE MONITOR. THE MESSAGE CONTAINS THE SMITCH SETTING READ 
TOGETHER WITH THE PROGRAM ID OF THE PROGRAM INTO WHICH THE 
CONTENTS OF SWITCHES 8-15 WERE STORED. IF THE SMITCH ENTRY 
CALLED FOR HALT OF ANY PROGRAM, THE WORD HALT WILL FOLLOM THE 
MESSAGE. 



AOCOO OOOR AAAA 



ROUTINE START MESSAGE - IF SMITCH 9, FUNCTION 0, IS TURNED ON, 
THIS MESSAGE MILL BE PRINTED BEFORE THE START OF EACH ROUTINE. 
R IS THE NUMBER OF THE NEXT ROUTINE AND AAAA IS THE STARTING 

ADDRESS. 



A0C01 OOOR AAAA 



NRDY 
1132 

THE 1132 IS NOT READY. 
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4.2*»* ERROR MESSAGES 

THE DSM IS CHECKED FOR ABSOLUTE CORRECTNESS AT ALL TIMES. IF AN 
ERROR IS DETECTED ONE OF THE MESSAGES BELOW WILL INOICATE THE 
PROBLEM. " IT IS LEFT TO THE OPERATOR TO ANALYZE THE DSW FOR THE 
SPECIFIC PROBLEM AREA. 



* THE 1132 DSW 



• 






• 


BIT 




• 





READ EMITTER RESPONSE 


* 


1 


SKIP RESPONSE 


* 


2 


SPACE RESPONSE 


• 


3 


CARRIAGE BUSY 


» 


4 


PRINT SCAN CHECK 


• 


5 


PRINTER NOT READY 


* 


6 


PRINTER BUSY 


* 


7 


NOT USED 


• 


8 


CHANNEL 1 


• 


9 


CHANNEL 2 


• 


10 


CHANNEL 3 


• 


11 


CHANNEL 4 


• 


12 


CHANNEL 5 


• 


13 


CHANNEL 6 


* 


14 


CHANNEL 9 


• 


15 


CHANNEL 12 


* 







»»»»»»».»»*»*»»»»»»**»»»»**»*»»»»»*«»»»»»**l**»»»»»*»* 



r 



EOOOl 



SMS INVLD 
XXXX 

THE SETTING OF SWITCHES 4-7 DID NOT EQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PROGRAM IN CORE. 



E0003 



E0004 



OVR CORE 

THE PROGRAM WHICH THE LOADER MAS ATTEMPTING TO LOAD 
EXCEEDED AVAILABLE CORE. LOADING MAS TERMINATED. 



CKSUM 

A CHECK SUM ERROR MAS DETECTED WHILE LOADING THE PROGRAM. 
THIS ERROR OCCURS UNDER ANY OF THE FOLLOMING CONDITIONS. 

1. A CARD IS MISSING OR IS OUT OF SEQUENCE. 

2. THERE IS AN EXTRA CARD IN THE DECK. 

3. THE PUNCHED INFORMATION ON THE CARD IS NOT CORRECT. 

4. DATA MAS LOST OR PICKED UP DUE TO A MACHINE MALFUNCTION. 

5. DUE TO A CPU MALFUNCTION, THE CHECK SUM MAS NOT 
CORRECTLY CALCULATED. 

MHEN THIS ERROR OCCURS ATTEMPT TO RELOAD THE PROGRAM. 
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EOOOS OOON XXXX 

THIS ERROR HILL OCCUR IF AN INTERRUPT OCCURS* BUT THE ILSM 
HAS NOT CORRECT. N IS THE INTERRUPT LEVEL ANO XXXX IS THE 
ILSH. THIS PRINTOUT HILL ONLY OCCUR IF THE INTERRUPT IS RESET 
BY A BOSI. NO ATTEMPT IS NAOE BY THE ERROR ROUTINE TO RESET 
THE REQUEST BIT. 



E0C01 OOOR AAAA 



HAS S/B - 
XXXX 0000 



STATIC DSH ERR 



SOME BIT OTHER THAN NOT READY OR A CHANNEL BIT HAS ON HHEN THE DSH 
HAS SENSED BEFORE GIVING AN 1132 CONTROL COMMAND. USE THE ABOVE 
DSH TABLE TO IDENTIFY THE BIT, THEN TAKE APPROPRIATE CORRECTIVE 
ACTION. 



E0C02 OOOR AAAA 



LAST OP - CCCC 

MAS S/B - BUSY DSH ERR 

XXXX XXXX 



THIS DSH HAS SENSED IMMEDIATELY AFTER THE 1132 CONTROL COMMAND 
IDENTIFIED BY CCCC HAS GIVEN. IF THE COMMAND HAS START PRINTER 
THE PRINTER BUSY BIT 16) SHOULD BE ON. IF THE LAST OP MAS 
SPACE OR SKIP THE CARRIAGE BUSY BIT (3) SHOULD BE ON. THE 
EXPECTEO OSH IS IDENTIFIED BY S/B. 



E0C03 OOOR AAAA 



LAST OP - CCCC 
DSM - NO INTRPT 
XXXX 



NO INTERRUPT HAS RECEIVED F0LL0H1NG THE LAST 1132 CONTROL COMMAND 
IDENTIFIED BY CCCC. THE DSH HAS SENSED AFTER A TMO SECOND DELAY. 
IF THE COHMANO HAS NOT RECEIVED, A BUSY ERROR IE0C02) HILL ALSO 
BE PRINTED. 



E0C04 OOOR AAAA 



LAST OP - CCCC 

OSH - PRINTER STOPPED 

XXXX 



THE PRINTER HAS TURNED ON, SOME EMIT INTERRUPTS HERE DETECTED, 
THE PRINTER STOPPED. NO PRINTER STOP COMMAND HAS GIVEN. THE 
OSH XXXX HAS SENSED 2 SECONDS AFTER THE LAST INTERRUPT OCCURRED. 



E0C05 OOOR AAAA 



LAST OP - CCCC 

HAS S/B - LEVI DSH ERR 

XXXX VYYV 



THIS OSH (XXXX) HAS SENSED IN INTERRUPT FOLLOWING THE 1132 CONTROL 
COMMANO IDENTIFIED BY CCCC. YVVV IS THE EXPECTED DSH. 



EOC06 OOOR AAAA 



EMIT BIT FAILURE 
XXOO YYOO 



THIS ERROR HILL OCCUR IF ANY EMIT BIT IS ALHAYS MISSING (OPEMI 
OR ALHAYS ON (SHORT). XX HILL BE EQUAL TO FF IF NO BITS ARE 
MISSING. ANY OPEN BIT HILL BE IDENTIFIED BY A ZERO IN THAT BIT 
POSITION. YY SHOULD BE 00... ANY SHORTEO BIT HILL BE IDENTIFIED 
BY A 1 IN THAT BIT POSITION. 
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E0C07 OOOR AAAA 



EMIT 1NVAL0 

XXXX 



THE FIRST EMIT CHARACTER AFTER A START PRINTER HAS NOT VALID. 
THE XXXX EQUALS THE EMIT CHARACTER READ. 

IF THIS ERROR PERSISTS, BYPASS THE ERROR TYPE OUT (SWITCH 131. 
THE PRINTER HILL THEN PRINT, AND IN ROUTINES 4 AND 5, ANY LINE 
BEGINNING HITH AN INVALID CHARACTER HILL BE SKIPPED. 



EOCOS OOOR AAAA 



HAS S/B - EMIT SEQ ERR 
XXXX YYOO | 



THE LAST EMIT CODE HAS EITHER INVALID OR OCCURRED IN THE WRONG 
SEOUENCE. YV IDENTIFIES THE EXPECTED EMIT CODE. SECTION 5.4 
CONTAINS A TABLE OF EMIT CODES. 



E0C09 OOOR AAAA 



PRINTER DID NOT TURN OFF 



A STOP COMMAND HAS GIVEN TO THE PRINTER BUT THE PRINTER DID NOT 
GO OFF. 



EOC10 OOOR AAAA 



MULT SPACE INTERRUPTS 



MORE THAN ONE SPACE INTERRUPT OCCURRED AFTER A SPACE COMMAND, 
OR AN UNEXPECTED SPACE INTERRUPT OCCURRED. 



E0C11 OOOR AAAA MULT SKIP INTERRUPTS 

AN UNEXPECTED SKIP INTERRUPT OCCURRED. 



E0C12 OOOR AAAA 



MISSING CHANNEL 
XXXXX 



ROUTINE 8 SPACES TO A CHANNEL PUNCH IN THE CARRIAGE TAPE, IDENTIFIES 
THAT CHANNEL, THEN GOES TO THE NEXT CHANNEL. THIS IS REPEATED 
UNTIL 16 CHANNELS HAVE BEEN IDENTIFIED. IF ANY OF THE 8 CHANNELS 
IS NOT SENSED, THIS MESSAGE HILL IDENTIFY THAT CHANNEL. CHECK THE 
TAPE TO DETERMINE IF THAT CHANNEL HAS PUNCHED. FURTHER ANALYSIS 
OF THE CARRIAGE CONTROL (RTNS 9 C A) HILL ASSUME THAT THE CHANNEL 
HAS NOT PUNCHED IN THE CARRIAGE TAPE. 



E0C13 0008 AAAA 



CHANNEL SEQ ER 



ROUTINE 8 SPACES TO A CHANNEL PUNCH IN THE CARRIAGE TAPE, IDENTIFIES 
THAT CHANNEL THEN GOES TO THE NEXT CHANNEL AFTER 16 CHANNELS HAVE 
BEEN IDENTIFIED, THE PROCESS IS REPEATED HITH SKIPS. THE CARRIAGE 
IS STOPPED AFTER EACH SKIP INTERRUPT AND THE CHANNEL COMPARED NITH 
SEOUENCE DETECTED HHEN SPACING. THIS MESSAGE IS PRINTED HHEN 
ANY DIFFERENCE IN SEOUENCE IS DETECTED ( USUALLY DUE TO A MISSED 
CHANNEL INTERRUPT OR A CHANNEL NOT DETECTED HHEN SPACING). THE 
CHANNEL SEOUENCE CAN BE DETERMINED FROM THE 1132 PRINTOUT. 



E0C14 OOOR AAAA MULT CHANNEL BITS 

XXXX 

MORE THAN ONE CHANNEL BIT HAS ON IN THE DSM (XXXX). 
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E0C15 OOOR AAAA 



CHANNEL SENSE ER 
XXXX YYYY 



CHANNEL BITS SENSED IN INTERRUPT AFTER A SPACE RESPONSE (XXXX) ARE 
NOT EOUAL TO CHANNEL BITS SENSED APPROXIMATELY 1 MILLISEC LATER 
IN MAINLINE (YYYY). SINCE NO CARRIAGE COMMAND HAS BEEN GIVENt THE 
CHANNEL BITS SHOULD BE THE SAME. 



E0C16 OOOR AAAA 



CHANNEL SENSE ER 
XXXX YYYY 



THE CHANNEL BITS SENSED 1 MILLISECOND AFTER A SPACE RESPONSE (XXXX). 
ARE NOT EOUAL TO THE CHANNEL BITS SENSED IMMEDIATELY BEFORE THE 
NEXT EXECUTION OF SPACE COMMAND. 



E0C17 OOOR AAAA 



CARRIAGE BSY 



THE CARRIAGE WAS FOUND BUSY BEFORE GIVING A START PRINTER. THE 
START PRINTER COMMAND HAS NOT GIVEN. THE PROGRAM MILL WAIT IN A 
LOOP UNTIL THE CARRIAGE GOES NOT BUSY. THE NROY MESSAGE (A0CO1) 
HILL BE PRINTEO EACH 10 SECONDS. IF THE LAST COMMAND HAS SKIP. 
THE CARRIAGE DID NOT STOP ON A STOP CARRIAGE COMMAND. 

5. COMMENTS 

5.1*** TYPICAL PROGRAM PASS 

IF NO OPTIONS ARE SELECTED, THE 1132 FUNCTION TEST MILL RUN 
ROUTINES 1 THROUGH A THEN TERMINATE. 

5.2*** TEST PROCEDURE 

5.2.1 TEST ORGANIZATION 

TESTS ARE ORGANIZED AS FOLLOWS 

1. INITIALIZE THE TEST ROUTINE 

A. CLEAR THE BUFFER 

B. STOP THE PRINTER 

C. CHECK FOR READY 

D. PRINT HEADER ON 1132 

E. SET ROUTINE TERMINATION CONTROL 

2. INITIALIZE FOR THIS PASS THROUGH THE ROUTINE. 

3. EXECUTE CONTROL COMMAND 

4. CHECK FOR ERRORS 

A. CHECK DSH FOR BUSY 

B. WAIT FOR TIMED PERIOD - TIME OUT IF NO INTERRUPT. 

C. CHECK EMITS FOR VALIDITY AND PROPER SEQUENCE. 

D. CHECK INTERRUPT DSH 

E. CHECK CHANNEL BITS 

5. ANALYZE ERROR DATA AND PRINT ERROR MESSAGES. 

6. GO TO 2 ABOVE IF LOCK ON FUNCTION. 

7. ADVANCE FOR NEXT PASS THROUGH THE TEST ROUTINE. 

8. GO REPEAT THE ROUTINE IF NOT END OF ROUTINE. 

5.2.2 ERROR CHECKING 
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ALL TEST ROUTINES CONTAIN THE FOLLOWING ERROR CHECKING 

1. DEVICE STATUS CHECK - THE DEVICE STATUS IS READ AND CHECKED 
AS FOLLOWS (THIS ANALYSIS IGNORES THE CHANNEL BITS - SEE 
5.2.2-3). 

A. BEFORE A TEST ROUTINE IS STARTED. THE DSH SHOULD BE ZERO. 
ANY BITS UN OTHER THAN NOT REAOY OR A CHANNEL BIT HILL BE 
IDENTIFIED BY A MESSAGE (E0C01). IF NOT READY, THE NROY 
MESSAGE (A0C01) WILL BE PRINTED. 

B. IMMEDIATELY AFTER ANY OPERATION. THE DSH SHOULD SHOW THE 
PRINTED BUSY AFTER A START PRINTER OR THE CARRIAGE BUSY 
AFTER A SPACE OR START SKIP. ALL OTHER BITS SHOULD BE OFF. 
THIS DSM IS SAVED AND CHECKED FOR ERRORS AFTER THE OPERATION 
IS COMPLETED. A MESSAGE (E0C02) HILL IDENTIFY ANY ERRORS. 

C. IN INTERRUPT. THIS DSH IS COMPARED HITH THE EXPECTED DSM 
AND AN ERROR BIT SET IDENTIFYING ANY DIFFERENCES. THE 
MESSAGE (E0C05) IDENTIFYING ANY ERROR IS PRINTED IN MAIN- 
LINE. IF THE INTERRUPT IS EMITTER RESPONSE, THE DSH SHOULD 
SHOW PRINTER BUSY. IF CARRIAGE RESPONSE, THE DSH SHOULD 
SHOW CARRIAGE BUSY. IF SPACE RESPONSE, NO BUSY SHOULD BE 

ON UNLESS THE SPACE HAS GIVEN WITH THE PRINTER ON IR0UTINE4I. 

D. BEFORE A START PRINTER COMMAND TO ASSURE THAT THE CARRIAGE IS 
NOT BUSY. START PRINTER IS IGNORED IF THE CARRIAGE IS BUSY 
AND AN ERROR MESSAGE (E0C17) IS PRINTED AND THE PROGRAM 

HILL WAIT IN A LOOP, PRINTING THE NRDY MESSAGE (A0C01) 
EVERY 10 SECONDS. 

2. EMIT CHECK 

WHEN THE PRINTER IS ON AN EMIT RESPONSE OCCURS EVERY 11 
MILLISECONDS. THE EMIT CODE FOR THE FIRST RESPONSE AFTER 
INTERRUPT IS CHECKED FOR A VALID CODE. ALL SUBSEQUENT EMITS 
ARE CHECKED FOR VALID CODE AND FOR PROPER SEOUENCE. 

THE FIRST 100 EMITS AFTER THE FIRST START PRINTER ARE ALSO 
CHECKED FOR OPEN OR SHORTED EMIT BITS. 

3. CHANNEL BIT CHECK 

THE CHANNEL CODE SHOULD NOT CHANGE FROM THE ENO OF ONE CARRIAGE 
COMMAND TO THE START OF THE NEXT. THE CHANNEL CODE IS SENSED 
IN INTERRUPT, ON RETURN TO MAINLINE FOLLOWING A SPACE RESPONSE 
INTERRUPT, AND BEFORE THE NEXT SPACE COMMAND. IF ANY CHANGE IN 
THE CHANNEL CODE IS DETECTED, AN ERROR MESSAGE HILL BE PRINTED 
(E0C15 OR E0C16). 

4. INTERRUPT CHECK 

A. FOLLOWING ANY CONTROL COMMAND, THE PROGRAM MILL MAIT IN A 

TIMED LOOP FOR THE INTERRUPT. EACH TIME AN INTERRUPT OCCURS, 
THE TIMER IS RESET. THE NUMBER OF INTERRUPTS FOR ANY ONE 
CONTROL COMMAND IS COUNTED IN INTERRUPT. THE COMPLETION OF 
ALL OPERATIONS IS DETERMINED IN INTERRUPT. 

IF ANY CONTROL COMMAND SHOULD FAIL TO CAUSE AN INTERRUPT 
RESPONSE, THE INTERRUPT HAIT ROUTINE HILL TIME OUT AND 
AN ERROR MESSAGE WILL BE PRINTED. IF ANY OPERATION ENDS 
ABNORMALLY (PRINTER GOES OFF, CARRIAGE STOPS) AN ERROR 
MESSAGE HILL BE PRINTED. 
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B. THE FOLLOWING FAILURES TO GET INTERRUPT ARE DETECTED 

11) NO RESPONSE AFTER A CONTROL COMMAND. 

121 PRINTER STOPPEO BUT A PRINTER STOP COMMAND MAS NOT 
GIVEN. 

(3) CARRIAGE STOPPED BUT A CARRIAGE STOP COMMAND MAS NOT 
GIVEN. 

C. THE FOLLOWING EXTRA INTERRUPT MILL BE DETECTED 

II) MORE THAN ONE SPACE RESPONSE AFTER A SPACE COMMAND. 
•2) EMIT RESPONSE AFTER A PRINTER STOP COMMAND. 
•3) SKIP RESPONSE AFTER A CARRIAGE STOP COMMAND. 
5.3*»* ROUTINE DESCRIPTION 

THIS SECTION CONTAINS A DESCRIPTION OF THE PROGRAM ROUTINES AND 
SUBROUTINES IN APPROXIMATELY THE ORDER IN WHICH THEY APPEAR IN 
THE PROGRAM AS FOLLOWS - 

1. TEST SEQUENCE CONTROL ROUTINE 

2. NORMAL TEST ROUTINES 

3. OPTIONAL TEST ROUTINES 

4. TEST SUBROUTINES 

5. ERROR CONTROL ROUTINES 

6. INTERRUPT ROUTINES 

5.3.1 TEST SEQUENCE CONTROL ROUTINE - CNTRL 

THIS ROUTINE CHECKS THE ROUTINE SELECTION SWITCH (SWI IN THE 
PROGRAM CONTROL TABLE) AND DETERMINES WHICH TEST ROUTINE IS 
TO BE RUN NEXT. IF A TEST ROUTINE HAS BEEN SELECTED IT 

fc^?Tln H ^ S T f. TR £ MSFER T0 THAT ROUTINE. IF NO ROUTINE IS 
SELECTED A TRANSFER IS ESTABLISHED TO THE NEXT TEST ROUTINE 

THE ROUTINE ADDRESS TABLE (RTTBC) WHICH IS PART OF CNTRL, 
CONTAINS THE ROUTINE ADDRESS FOR ALL TEST ROUTINES IN THE 
SEQUENCE IN WHICH THEY ARE TO BE RUN. 

THE LAST TEST ROUTINE IN THE NORMAL SEQUENCE IS IDENTIFIED 
BY THE LABLE NRTN. AFTER THIS ROUTINE IS RUN CNTRL WILL 
TRANSFER TO MONITOR END AND TERMINATE THE PROGRAM. ROUTINES 
FOLLOWING THE LABLE NRTN ARE CALLED OPTIONAL TEST ROUTINES 
ANO WILL ONLY BE RUN IF SELECTED. 

5.3.2 NORMAL TEST ROUTINES 

J« ?°Jt. Sr . R0UTINE IS SELECTED, THESE ELEVEN TEST ROUTINES 
WILL RUN IN SEQUENCE THEN THE PROGRAM WILL TERMINATE. 

1. TEST ROUTINE I - EMIT SEQUENCE TEST. 

I?J!J!5 T R0UT I N E IDLES THE PRINTER FOR 200 READ EMITTER 
RESPONSE INTERRUPTS. IT CHECKS THAT NO EMIT BITS 
ARE OPEN OR SHORTED, AND THAT ALL EMITS CODES ARE 
VALID AND IN THE PROPER SEQUENCE. 
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2. TEST ROUTINE 2 - PRINT SCAN CHECK INDICATOR TEST. 

F«!TT» S LconI!? E I0LES F0R THE "WINTER FOR 100 READ 
111 TT f R T RE t SP0NSE INTERRUPTS, WITH THE SCAN CHECK 
5 ,.. IILI 5 IN C0RE <- 0CAT I°* /0027) SET TO ZERO. THIS 
^rLf° " * PR,NT SCAN CHEC * ERROR. IF NO SCAN CHECK 
OCCURS AN E0C05 ERROR WILL PRINT. 

3. TEST ROUTINE 3 - SPACE WITH PRINTER OFF. 

THIS TEST ROUTINE CHECKS FOR PROPER SPACE RESPONSE FOR 
!SI H r S i NGLE * N0 ""LTiPLE SPACES. THE PROGRAM WAITS 
FOR THE SPACE INTERRUPT AND TURNS OFF THE PRINTER 
BEFORE GIVING THE NEXT SPACE COMMAND. LOCK ON FUNCTION 
WILL LOOP ANY SINGLE GROUP OF SPACES. 

4. TEST ROUTINE 4 - SPACE WITH PRINTER ON. 

SAME AS ROUTINE 3 EXCEPT THAT THE PRINTER IS TURNEO 
ON 6EF0RE THE SPACE COMMAND IS GIVEN. 

5. TEST ROUTINE 5 - RIPPLE TEST 

THIS TEST ROUTINE PRINTS A RIPPLE PATTERN OF ALL 
CHARACTERS IN EMIT SEQUENCE. THE PATTERN IS PRINTED BY 
FLOATING A 'ONE' BIT ACROSS THE PRINT BUFFER (CORE 
ADDRESSES /0020-/0027). THIS CAUSES ONLY ONE CHARACTER 
TO BE PRINTED FOR EACH EMIT RESPONSE. TO PRINT ONE 
LINE 120 EMIT RESPONSES ARE REQUIRED. THE PROGRAM 
WILL THEN IDLE FOR 16 EMITS BEFORE THE SPACE COMMAND 
IS GIVEN ITHIS SPACE IDLE TIME CAN BE CHANGED BY A 
FUNCTION 3 SWITCH SETTING). AFTER EACH LINE THE PATTERN 
IS ROTATED, THUS ALL CHARACTERS WILL BE PRINTED IN EVERY 
POSITION. EACH LINE REQUIRES 144 EMIT CYCLES. THIS 
RESULTS IN AN AVERAGE PRINT SPEED OF APPROXIMATELY 
37 LINES PER MINUTE. 

6. TEST ROUTINE 6 - PRINT ALL CHARACTERS 

THIS TEST ROUTINE PRINTS LINES OF ALL ONE CHARACTER. 
ALL CHARACTERS ARE PRINTEO AT THE SAME TIME. THE 
PROGRAM WILL IDLE 16 EMITS BEFORE THE SPACE COMMAND 
IS GIVEN (THIS SPACE IDLE TIME CAN BE CHANGED BY A 
FUNCTION 3 SWITCH SETTING). SINCE CHARACTERS ARE PRINTED 
IN EMIT SEQUENCE, 48 EMIT CYCLES ARE REQUIRED FOR EACH 
LINE. THIS RESULTS IN AN AVERAGE PRINT SPEED OF ABOUT 
110 LINES PER MINUTE FOR THIS ROUTINE. 

7. TEST ROUTINE 7 - STRESS TEST 

THIS ROUTINE PRINTS LINES OF ONE CHARACTER WITH A 
MINIMUM OF TIME BETWEEN LINES. THE ROUTINE SETS THE BUFF 
TO ONES ANO PRINTS WITH NO DATA CONTROL. AFTER EACH 
LINE THE ROUTINE WILL IDLE FOR 16 EMIT CYCLES, SPACE, 
THEN IDLE AN ADDITIONAL 16 EMIT CYCLES BEFORE PRINTING 
THE NEXT LINE. THIS RESULTS IN AN AVERAGE SPEED OF 
APPROXIMATELY ISOCLINES PER MINUTE. FAILURES SHOWN 
BY THIS TEST ARE USUALLY THE RESULT OF LOADING OF THE 
POWER SUPPLY. 
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5.3.3 



8. TEST ROUTINE 8 - CHANNEL IDENTIFICATION 

THIS TEST ROUTINE CHECKS FOR PROPER DETECTION OF THE 
PUNCHES IN THE CHANNEL TAPE BOTH WHEN SPACING AND 
SKIPPING. THE CARRIAGE CONTROL TAPE MAY BE OF ANY 
LENGTH WITH ANY SEQUENCE OF PUNCHES SO LONG AS THE 
TOTAL NUMBER OF PUNCHES DOES NOT EXCEED 16. 

THE ROUTINE FIRST SPACES TO EACH CHANNEL PUNCHED IN THE 
CARRIAGE TAPE, IDENTIFIES THAT CHANNEL BY A MESSAGE 
PRINTEO ON THE 1132, THEN RECORDS THE SEQUENCE IN HHICH 
THE CHANNELS OCCUR. 

AFTER SPACING TO 16 CHANNELS, THE ROUTINE MILL SKIP TO 
EACH OF THESE CHANNELS. THE CARRIAGE IS STOPPED AFTER 
EACH CHANNEL RESPONSE INTERRUPT, THE CHANNEL IS 
IDENTIFIED BY A MESSAGE PRINTEO ON THE 1132, THEN THE 
SEQUENCE OF THE CHANNEL RESPONSE IS COMPARED TO THE 
SEQUENCE SEEN WHEN SPACING. IF THESE SEQUENCES DO 
NOT AGREE AN ERROR MESSAGE IS PRINTEO. 

9. TEST ROUTINE 9 - SKIP WITH PRINTER OFF. 

THIS ROUTINE CHECKS SKIP TO A SPECIFIC CHANNEL. A 
START SKIP COMMAND IS GIVEN AND EACH CHANNEL RESPONSE 
CHECKED FOR THE DESIRED CHANNEL. WHEN A MATCH IS FOUND 
A STOP CARRIAGE IS GIVEN AND THE CHANNEL IDENTIFIED 
BY AN 1132 MESSAGE. THE CARRIAGE HILL ALSO BE STOPPED 
AFTER 16 CHANNEL RESPONSES WITHOUT A MATCH. 

10. TEST ROUTINE A - SKIP WITH PRINTER ON. 

THIS ROUTINE IS THE SAME AS TEST ROUTINE 9 WITH THE 
EXCEPTION THAT THE PRINTER IS TURNED ON BEFORE THIS 
SKIP COMMAND IS GIVEN AND KEPT ON WHILE SKIPPING. THIS 
TESTS FOR INTERACTION BETWEEN READ EMITTER AND SKIP 
RESPONSES. 

OPTIONAL TEST ROUTINE - 

TEST ROUTINE B - BIT SWITCH CONTROL 

THIS TEST ROUTINE ALLOWS THE CE TO SPECIFY THROUGH THE BIT 
SWITCHES THE CHARACTER HE DESIRES TO PRINT AND THE COLUMN 
IN WHICH HE WILL PRINT THAT CHARACTER. ONLY ONE CHARACTER 
WILL BE PRINTED ON EACH LINE. 

THE COLUMN NUMBER MUST BE ENTERED IN SWITCHES 1-7, AND THE 
CHARACTER CODE IN SWITCHES 8-15. PRINTING WILL START WHEN 
SWITCH IS TURNED ON. 
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5.3.4 



TEST SUBROUTINES 

THE FOLLOWING FUNCTIONS ARE PERFORMED BY SUBROUTINES IN THE 
PROGRAM. 

1. INITIALIZE - CLEAR THE BUFFER, STOP THE PRINTER, CHECK 
FOR READY, AND PRINT THE ROUTINE HEADING ON THE 1132. 

2. PRINT - CHECK FOR CARRIAGE BUSY, SET THE SCAN COUNT, 
START THE PRINTER, CHECK THE BUSY DSN, THEN WAIT FOR 
THE SCAN COUNT TO GO TO ZERO. 

3. IOLE - SET THE IDLE COUNT, CHECK FOR CARRIAGE BUSY, 
START THE PRINTER, CHECK THE BUSY DSW, THEN WAIT FOR 
THE IDLE COUNT TO GO TO ZERO. 

4. SPACE - STOP THE PRINTER, CHECK FOR CHANGE IN CHANNEL 
CODE, START SPACE, CHECK THE BUSY DSW, THEN WAIT FOR 
THE SPACE INTERRUPT. 

5. SKIP - SET DESIRED CHANNEL CODE, START SKIP, CHECK 
BUSY OSW, THEN WAIT UNTIL A CARRIAGE STOP IS GIVEN IN 
INTERRUPT. 

6. STOP THE PRINTER - STOP THE PRINTER AND RESET ALL 
PRINTER TEST CONTROL WORDS. 

7. PRINT 1132 MESSAGE - SET UP THE MESSAGE BUFFER USING 
A MESSAGE CODE IN THE CALLING SEQUENCE. THIS MESSAGE 
CODE IDENTIFIES THE PHRASES CONTAINED IN THE MESSAGE 
TABLE WHICH ARE TO BE USEO IN THE MESSAGE. 

8. RIPPLE PATTERN - IDLE UNTIL MATCH BETWEEN EMIT AND 
FIRST CHARACTER IN NEXT LINE. WHEN MATCH FOUND SET 
FIRST BIT IN BUFFER, INITIALIZE FOR PRINT RIPPLE, 
THEN GO TO PRINT SUBROUTINE. 

9. CLEAR BUFFER - CLEARS BOTH THE 1132 MESSAGE BUFFER AND 
THE PRINT BUFFER-CORE LOCATIONS /0020-/0027. ALSO SETS 
THE SCAN COMPLETE BIT - BIT IS IN CORE LOCATION /O027. 

10. SET BUFFER TO ONES - SETS ALL BITS ON IN CORE LOCATIONS 
/0020 TO /0027. 

11. READY - CHECKS 1132 FOR READY. PRINTS AN ERROR MESSAGE 
IF ANY BIT OTHER THAN NOT READY ON. PRINTS NROY IF 
NOT READY BIT ON. 

12. FORM CHECK - CHECKS FOR FORMS CHECK AFTER SPACE OR 
SKIP. PRINTS NRDY IF FORM CHECK. 
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5.3.5 



ERROR CONTROL ROUTINES 



1. INTERRUPT WAIT ROUTINE 

ALL SUBROUTINES COME HERE AFTER THE START OF AN I/O 
OPERATION FROM MHICH AN INTERRUPT IS EXPECTED. THIS 
ROUTINE RESETS ALL ERROR CONTROL NORDSf SENSES AND 
STORES THE BUSY OSW, THEN WAITS IN A TIMED LOOP 4AT 
LEAST 2 SECONDS) FOR THE OP COMPLETE INTERRUPT. 

IF NO OP COMPLETE INTERRUPT IS RECEIVED THE FOLLOWING 
SET DATE-07/01/68 
// JOB DOC 
// EXEC DOCUMENT 
./ OPTION MASTER, UPOATE,RESEQ 
./ DELETE S30C 
./ XFER S309 
./ MERGE CARDS 

ERROR MESSAGES ARE PRINTED. 

A. E0C02 IF BUSY DSH ERROR 

B. E0C03 IF NO INTERRUPT 

IF AN INTERRUPT IS RECEIVED THIS ROUTINE WILL CHECK 
FOR PROPER PERFORMANCE OF THE OPERATION. THE FOLLOWING 
CHECKS ARE MADE AND ERROR MESSAGES PRINTED IF 
APPROPRIATE 

A. E0C02 IF BUSY DSH ERROR 

B. E0C05 IF INTERRUPT OSW ERROR 

C. E0C06t E0C07 OR E0C08 IF EMIT ERROR 

D. E0C15, IF CHANNEL CODE CHANGED AFTER SPACE RESPONSE. 

THE ROUTINE WILL THEN CHECK FOR NOT READY (USUALLY DUE 
TO FORM CHECK). IF NOT READY, NRDY IS PRINTED. IF 
READY, THE ROUTINE WILL RETURN TO THE I/O SUBROUTINE 
FROM WHICH IT WAS ENTERED. 

2. PRINT ERROR MESSAGES 

THIS ROUTINE PRINTS ALL THE ERROR MESSAGES. IF THE 
MESSAGE IS THE FIRST ERROR MESSAGE FOLLOWING AN I/O 
CONTROL COMMAND A LAST OP MESSAGE WILL PRECEEO THE 
ERROR MESSAGE. THIS LAST OP MESSAGE WILL IDENTIFY 
THE LAST I/O CONTROL OPERATION EXECUTEO. THE ERROR 
MESSAGE FOLLOWING REFERS TO ERRORS DETECTED IN THAT 
OPERATION. 
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5.3.6 INTERRUPT ROUTINE 

ALL INTERRUPTS ARE HANDLED BY A COMMON INTERRUPT ROUTINE. THIS 
ROUTINE SENSES AND STORES THE DSW, SERVICES THE APPROPRIATE 
RESPONSE, CHECKS THE OSW FOR EXPECTED BITS, THEN RETURNS TO THE 
MONITOR INTERRUPT ROUTINE. 

1. READ EMIT RESPONSE 

ALL EMIT CODES ARE CHECKED FOR VALIDITY AND FOR PROPER SEOUENCE. 
THE PRINT BUFFER IS THEN SET UP UNDER CONTROL OF THREE CODE WORDS 
AS FOLLOWS. 



LABEL 


• 


DESCRIPTION 


• 


FUNCTION 


SCNCT 


« 


SCAN COUNT 


• 


PRINT IF 
GREATER THAN 1 




* 




• 


CLEAR BUFFER IF «1 




• 




• 


IDLE IF « 




* 




* 




MSGSW 


* 


MESSAGE SWITCH 


• 


PRINT MESSAGE 




* 




• 


IF ON AND 




• 




* 


SCNCT GREATER THAN 1 




• 




* 




IDLCT 


• 


IDLE COUNT 


» 


IDLE IF GREATER THAN 




• 




* 


STOP PRINTER AND 




• 




* 


RETURN TO MAINLINE 




* 




• 


IF - 



2. SKIP RESPONSE 

SKIP IS CONTROLLED BY THE SKIP TO SWITCH (SKPTO). IF THIS 
SWITCH IS ZERO, THE SKIP RESPONSE ROUTINE WILL STOP THE 
CARRIAGE AFTER EACH SKIP RESPONSE. IF SKPTO IS NOT ZERO, IT 
CONTAINS THE CHANNEL CODE OF THE DESIRED CHANNEL. THE 
CARRIAGE IS STOPPED WHEN A MATCH IS FOUND. IF AFTER 16 SKIP 
RESPONSES NO MATCH IS FOUND, THE CARRIAGE WILL BE STOPPED. 
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DATE 
EC NO. 
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*•*•••••••*•*••••••••♦*•••••••*•••••**••••**•••»*•**•«••••••••••*•*••*• 

THIS ENGINEERING CHANGE REFLECTS MAJOR 
CHANGES TQ THE DIAGNOSTIC MONITOR. PREVIOUS 
TESTS MILL NOT RUN WITH DIAGNOSTIC MONITOR II. 

THIS TEST HILL NOT RUN HITH PREVIOUS MONITORS. 

TESTS PRIOR TO EC 419643 OATEO NOV 15* 1966 
HILL NOT OPERATE PROPERLY HITH DIAGNOSTIC 
MONITOR II. 

•**♦**•*** ♦**•**••• •*•*•*«•*•••**»• **************** 



*•**•••••*••*•*•••*•> 



1130 - 1132 PRINTER FUNCTION TEST 



••*»*•••*•*•*••••••**••*•*•**•••*••••*•••«• 



••ft*************************************** 

EQUATE TABLE 
ft****************************************** 

THIS TABLE EQUATES TEST PROGRAM LABLES 
TO THEIR EQUIVALENT DIAGNOSTIC MONITOR 
ADDRESSES. 



MONITOR ENTRY ADDRESSES 



0160 
0161 
0162 
0163 
0164 



0165 
0166 
0167 



01 7A 
01 BA 
01 9 A 
01 AA 
01 0A 
01 BB 
01 BC 
01B0 



0000 



BEGIN 


EQU 


/160 


START 


EQU 


BEGIN*! 


ERROR 


EQU 


START*1 


LOG 


EQU 


ERROR ♦! 


END 


EQU 


L0G»1 



BEGIN ROUTINE 
SUPERVISOR ROUTINE 
ERROR LOG ROUTINE 
STATUS LOG ROUTINE 
END ROUTINE 



TNSH EQU EN0»1 ROUTINE START SH 

ERLCK EQU EN0*2 LOCK ON ERROR CONTROL 

OGBY EQU EN0*3 I/O BUSY SM AOORS 



MONITOR CONTROL HORO ADDRESSES 



INTERRUPT TRANSFER VECTOR ADDRESSES 



INTERRUPT LEVEL ZERO 
INTERRUPT LEVEL ONE 
INTERRUPT LEVEL TMO 
INTERRUPT LEVEL THREE 
INTERRUPT LEVEL FOUR 
CONSOLE PRINTER REQUEST 
USE KEYBOARD REQUEST 
KB SERVICE REQUEST 



ORG •♦/050C 



ILO 


EQU 


/1TA 


I LI 


EQU 


1L0*16 


IL2 


EQU 


ILU16 


IL3 


EQU 


IL2*16 


IL* 


EQU 


IL3»16 


RQTV 


EQU 


IL4*1 


RQRB 


EQU 


RQTV* 1 


SVKB 


EQU 


RQKB*1 



THE MONITOR USES CORE LOCATIONS 0-050C. 
FOR CONTENTS OF THESE ADDRESSES REFER 
TO THE DIAGNOSTIC MONITOR LISTING. 



DATE 


02JAN66 


IN AY 66 


01JUL66 


15N0V66 


03APR67 


EC NO. 


415490 


4154908 


41S490C 


419643 


4196430 



30C0OO30 
30C00040 
30C00050 
30C00060 
30C00070 
30C0O0BO 
30C00090 
30C00100 
30C00110 
30C00120 
30C00130 
30C00140 
30C00150 
30C 00160 
30C00170 
30C00180 
30C00190 
30C00200 
30C00210 
30C00220 
30C00230 
30C00240 
30C00250 
30C00260 
30C00270 
30C00280 
30C0029O 
30C00300 
30CO031O 
30C00320 
30C00330 
30C00340 
30C00350 
30C00360 
3OC00370 
30C00380 
30C00390 
30C00400 
30C00410 
30C00420 
30C00430 
30C00440 
30C00450 
30C00460 
30C00470 
30C00480 
30C00490 
30CO050O 
30C00&10 
3OC0O52O 
30C00530 
30C00S40 
30C00550 
30C00560 
30C00570 
30C00580 
30C00590 
30C00600 
30C00610 
30C00620 
30C00630 
30C00640 
30C00650 
30C00660 
30C00670 
30C00680 
30C00690 
30C00700 



PROG 10 
PAGE 



03OC-2 
1 







*****•••*•**••••*•*••*••»*•••••*••**••*••*•• 


30C00710 








• 






PROGRAM 


CONTROL TABLE 


30C00720 








••*•***•»*•**»•**•*•*•••****•»• •*»*••*•»**•* 


30C00730 








• 










30C00740 




05DC 


030C 


PIO 


OC 




/030C 


PROGRAM 10 


30C00750 




0500 


0000 


RIO 


DC 




•-• 


ROUTINE 10 


30C00760 




050E 


0000 


RAO 


OC 




*-* 


ROUTINE AOORS 


30C0O770 




05DF 


0000 


SMO 


DC 




*-* 


PROGRAM CONTROL 


30C00780 




05E0 


0000 


SHI 


DC 




*-• 


ROUTINE SELECTION 


30C00790 




05E1 


0000 


SH2 


OC 




•-• 


SCAN START CHARACTER 


30C 00800 




05E2 


0012 


SH3 


DC 




ie 


SPACE AFTER PRINT OLV 


30C00810 




OSES 1 


OSES 




OC 




STRT 




30C00820 




05E« 1 


05EB 


• ' 


OC 




STRT 


RESTART ADDRESS 


30C00830 
30C00840 




OSES 


0000 


NLSCF 


OC 




*-* 


SET BY WAIT RTN ANO HON 


30C00850 




05E6 


0000 




OC 




*-• 


SET BY CNTRL ANO INRTPT 


30C00860 




05E7 


FFFF 


• 


OC 




/FFFF 


TERMINATOR 


30CC0870 
30C00880 








*#•*****•****•**••**«••*•*•*•*****•*•******• 


30C00890 








• 






TEST INITIALIZATION 


30C00900 








*********** *•*•••**•*••*••••*** **••**•****** 


30C00910 








• 










30C00920 




OSES 00 


44800160 


BGIN 


8SI 


I 


BEGIN 




30C00930 




05EA 1 


050C 


• 


OC 




PIO 


PCT AOORESS 


30C00940 

30C00950 
30C00960 
























• START OF TEST AND SINGLE PASS INITIALIZATION 


30C00970 
30C009S0 
























• 










30C00990 




05EB 


6100 


STRT 


LOX 


1 





SET TO START WITH 


3 OC 01000 




05EC 


69F0 




STX 


1 


RIO 


FIRST ROUTINE 


30C01010 




05ED 


69F3 




STX 


1 


SH2 


RESET CHAR SELECT 


30C01020 




05EE 01 


60000AE6 




STX 


LI 


HAIT 




30C01030 


„,. 


O5F0 01 


600Q077F 




STX 


LI 


SH89A 




30C01040 




05F2 


6164 




LOX 


1 


100 




30C01050 




05F3 01 


60000C08 




STX 


LI 


EMTCT 


SET EMIT CHECK CNT 


30C01060 




05F5 01 


CC000BF8 




LOD 


L 


ANOOR 




30C01O7O 




05F7 01 


0C000BF6 




STD 


L 


ANOEM 


SET EMIT CK CONSTANT 


30C01080 




05F9 


6112 




LOX 


1 


18 




30C01090 




05FA 


69E7 




STX 


1 


SH3 


RESET SPACE DELAY 


30C01100 




OSFB 01 


6SOO0B70 




LOX 


LI 


PIRT 




30C01110 




05FD 00 


6D00018A 




STX 


LI 


IL1 


SET INTERRUPT AORS 


30C01120 




05FF 


4000 


• 


BSI 




CNTRL 


GO TO CONTROL RTN 


30C01130 
30C01140 








******************************************** 


30C01150 








• 






SEQUENCE CONTROL ROUTINE 


30C01160 








•****•••«••••••••••**••**»*••••«***•*•**••*» 


3OC0117O 








• THIS ROUTINE CHECKS 


SWITCHES ANO CONTROLS 


30C01180 








• SEQUENCE 


IN 


HHICH TEST ROUTINES ARE RUN. 


30C01190 
30C01Z00 
























• 










30C01210 




0600 


OOOO 


CNTRL 


OC 




•-• - 




30C01220 




0601 


CODE 




LO 




SMI 




30C01230 




0602 01 


4C08060B 


• 


BSC 


L 


CN20.4 


BR IF NO RTN SELECTO 


30C01240 
30C01250 




0604 


D0D8 


CN10 


STO 




RIO 


SAVE NEH RTN NUMBER 


30C01260 




0605 


9015 




s 




RIDCK 




30C01270 




0606 01 


4C080611 




BSC 


L 


CN30** 


BR IF VALIO RTN 


30C01280 




0608 


1810 




SRA 




16 




30C01290 




0609 


0006 




STO 




SHI 


IF INVALID RTN 60 


30C01300 




060A 


0002 


• 


STO 




RIO 


TO RTN ONE 


30C01310 
30C01320 




060B 01 


74010500 


CN20 


MOX 


L 


RID, I 


ADV TO NEXT RTN 


30C01330 




0600 


COCF 




LD 




RID 


CHECK FOR END OF 


30C01340 




060E 


9000 




S 




RTNOM 


NORMAL SEQUENCE 


30C01350 




06 OF 00 


44B00164 


'• 


BSI 


1 


END.-Z 


ENO OF PROGRAM 


30C01360 
30CO1370 




0611 01 


65800500 


CN30 


LOX 


II 


RIO 




30C01380 




OATE 


02JAN66 


01MAV66 


01JUL66 15NUV66 03APR67 


PROG ID 


030C-2 


EC NO. 


415490 


415490B 


41*490C 419643 4196430 


PAGE 


1A 
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1132 PRINTER FUNCTION TEST 



0613 01 


C500061C 




LD 


LI RTTBL-1 


FETCH RETURN AORS 


30C01390 




0615 


ooce 




STO 


RAO 




30C01400 




0616 00 


04000165 




STO 


L RTNSM 


SET RTN START SH 


30C01410 




0618 


ooco 




STO 


NLSCF«1 


SET MLSCF FOR RETURN 


30C01420 




0619 00 


44800161 


* 


est 


I START 


GO TO MONITOR 


30C01430 
30C01440 




061B 


0008 


RIDCK 


DC 


LRTN-RTT8L+1 


30C01450 




061C 


OOOA 


RTNOM 


DC 


NRTN-RTTBL+1 


30C01460 








• 








30C01470 
30C01480 
30C01490 
30C01500 
30C01510 








• ROUTINE i 


ADDRESS TABLE 






0610 1 


0628 


RTTBL 


DC 


TST1 


EMIT SEQUENCE TEST 




061E 1 


063C 




DC 


TST2 


SCAN CHECK TEST 


30C01520 




061F 1 


0652 




DC 


TST3 


SPACE TEST 


30C01530 




0620 1 


0688 




DC 


TST4 


SKIP TEST 


30C01540 




0621 1 


0680 




DC 


TST5 


ROTATING PAT TEST 


30C01550 




0622 1 


06CA 




DC 


TST6 


ALL CHARACTERS TEST 


30C01560 




0623 1 


06F5 




DC 


TST7 


FAST PRINT TEST 


30C01570 




0624 1 


0780 




DC 


TST8 


CHANNEL SEQUENCE TEST 


30C01580 




0625 1 


07F7 




DC 


TST9 


SKIP- PRINTER OFF 


30C01590 




0626 1 


0825 


NRTN 


DC 


TSTA 


SKIP- PRINTER ON 


30C01600 




0627 1 


0850 


LRTN 

* 


DC 


TSTB 


MANUAL CONTROL 


30C01610 
30C01620 








##*##»*••*♦*••»*•*♦**♦**••»••*••*#•••»*•••*• 


30C01630 








• 




TEST ROUTINE 1 


30C01640 








to********************************* ********* 


30C01650 








• CHECK EMIT SEQUENCE AND NORMAL PRINT DSN 


30C01660 








^ 








30C01670 
30C01680 








• 










0628 01 


440008A0 


TST1 


8SI 


L INTLZ 


GO INITIALIZE ROUTINE 


30C01690 




062A 


0048 




DC 


/0048 


EMIT TEST 


30C01700 




062B 


6164 




LDX 


1 100 




30C01710 




06 2C 01 


6D0006C8 


• 


STX 


LI LPCNT 


SET LOOP COUNT 


30C01720 
30C01730 




062E 01 


6C00OACB 




STX 


L LOOP 


SET LOOP AOORS 


30C01740 




0630 00 


66006200 


T01A 


LDX 


L2 /8200 




30C01750 




0632 


6101 




LDX 


1 I 


SET lOlE CUT 


30C01760 




0633 01 


44000801 




BSI 


L IDLE 




30C01770 




0635 01 


440009EF 




BSI 


L LOCK 


CK FOR LOCK ON FUNCTION 


30C01780 




0637 01 


74FF06C8 




MOX 


L LPCNT.-l 


ADV LOOP CNT 


30C01790 




0639 


70F6 




MOX 


TOU 




30C01800 




063A 01 


44000600 


• 


BSI 


L CNTRL 


CO TO CONTROL RTN 


30C01810 
30C01820 








*#***•*•••••••••**•**•••***••••*••****•*•*•• 


30C01830 








• 




TEST ROUTINE 2 


30C01840 








«***•*•••*••*•*«•**•***••••*******«•*••*•*•* 


30C01850 








• CHECK PRINT SCAN CHECK INDICATOR 


30C01860 








■ ^ . 








30C01B70 
30CQ1880 








• 










063C 01 


44D008A0 


TST2 


BSI 


L INTLZ 


GO INITIALIZE ROUTINE 


30C01890 




063E 


0088 




oc 


/0088 


SCAN CHECK TEST 


30C01900 




063F 


6164 




LDX 


1 100 




30C01910 




0640 01 


6D00CMJC8 


• 


STX 


LI LPCNT 


SET LOOP COUNT 


30C01920 
30C01930 




0642 01 


6C000ACB 




STX 


L LOOP 


SET LOOP AOORS 


30C01940 




0644 


1810 


T02A 


SRA 


16 




30C01950 




0645 00 


04000027 




STO 


L 39 


CLEAR BIT 15 LOC 39 


30C01960 




0647 00 


66008A00 




LDX 


L2 S8A00 


SET TO CK FOR SCAN CK 


30C01970 


• 


0649 


6101 




LDX 


11 


SET I0LE CNT 


30C01980 




064A 01 


44000801 




BSI 


L IDLE 




30C01990 




064C 01 


440009EF 




BSI 


L LOCK 


CK FOR LOCK ON FUNCTION 


30C02O0O 




064E 01 


74FF06C8 




MOX 


L LPCNTt-1 


ADV LOOP CNT 


30C02010 




0650 


70F3 




MOX 


T02A 




30C02020 




0651 


40AE 


• 
• 


BSI 


CNTRL 


GO TO CONTROL RTN 


30C02030 
30C02040 
30C02050 








*««•*•»•****••••»*•**•••*••*•*•*•*•••***••** 


30C02060 




OATE 


02JAN66 


01MAV66 


01 JUL 66 15N0V66 03APR67 


PROG ID 


030C-2 


EC NO. 


415490 


4 15490B 


415490C 419643 4196430 


PAGE 


2 
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• 






TEST ROUTINE 3 


30C02070 








ft******************************************* 


30C02080 








• THIS ROUTINE CHECKS FOR SPACE RESPONSES 


3OC0209O 








• AND 


CHECKS THE OS* 




30C02100 








- 










30C02110 
30C02120 








* 












0652 01 


440008AO 


TST3 


BSI 


L 


INTLZ 


GO INITIALIZE ROUTINE 


30C02130 




0654 


0110 




DC 




/0110 


SPACE TEST -PRINTER OFF 


30C02140 




0655 


63F4 




LDX 


3 


-12 




30C02150 




0656 


6622 


• 


STX 


3 


T3CTL 


SET TEST CONTROL 


30C02160 
30C02170 




0657 01 


6C000ACB 




STX 


L 


LOOP 


SET LOOP AOORS 


30C0218O 




0659 01 


67800679 


T03A 


LDX 


13 


T3CTL 


LO CONTROL 


30C02190 




0658 01 


C 70 006 86 




LO 


L3 


T3CTL*13 


LD MSG CONTROL 


30C02200 




06SD 


D011 




STO 




T03B 




30C02210 




065E 01 


C7000687 




LO 


L3 


T3CTL*14 


LO NO. OF LOOPS ♦ SPACES 


30C02220 




0660 


1888 




SRT 




8 




30C02230 




0661 01 


D40006C8 




STO 


L 


LPCNT 




30C02240 




0663 


1090 




SLT 




16 




30C02250 




0664 


1808 




SRA 




8 




30C02260 




066S 


0021 


• 


STO 




SAVE3 


SAVE NUMBER OF SPACES 


30C02270 
30C02280 




0666 


C020 


T03A1 


LO 




SAVE 3 


LO NUMBER OF SPACES 


30C02290 




0667 


001 E 


• 
• 


STO 




SCNT 




30C02300 
30C02310 
30C02320 




0668 01 


440008F7 


T03C 

• 


BSI 


L 


SPACE 




3OC02330 
30C02340 




066A 01 


74FF0686 




MOX 


L 


SCNT, -I 


CNT SPACES 


3OC023SO 




066C 


70FB 




MDX 




T03C 




30C0236O 




0660 01 


44000946 




BSI 


L 


PHSG 


PRINT 1132 MSG 


3OCO2370 




066F 


0000 


T038 


OC 




•-* 




30C02380 




06 70 01 


440009EF 


• 


BSI 


L 


LOCK 


CK FOR LOCK ON FUNCTION 


30C02390 
30C02400 




0672 01 


74FF06C8 




MDX 


L 


LPCNT .-1 




30C02410 




067« 


7 OF I 


* 


MDX 




T03A1 




30C02420 
30C02430 




0675 01 


74020679 




MDX 


L 


T3CTL.2 


ADV CONTROL 


3OC0244O 




0677 


70E1 




MDX 




T03A 




30C02450 




0678 


4087 


• 


BSI 




CNTRL 


GO TO CONTROL RTN 


30C02460 
30C02470 




0679 


0000 


T3CTL 


DC 




•-* 


TEST 3 AND 4 CONTROL 


30C02480 




06 7A 


9002 




DC 




/9002 


SPACE 1 


30C02490 




067B 


0501 




DC 




/0501 




30C02500 




06 7C 


9004* 




OC 




/9004 


SPACE 2 


3OC02510 




0670 


0502 




DC 




/0502 




30C02520 




067E 


9008 




DC 




/9008 


SPACE 3 


30C02530 




067F 


0303 




OC 




/0303 




30C02540 




0680 


9010 




DC 




/9010 


SPACE 4 


30C02550 




0681 


0304* 




DC 




/0304 




30C02560 




0682 


9080 




DC 




/9080 


SPACE 9 


30C02570 




0683 


0109 




DC 




/0109 




30C02580 




0684 


9200 




DC 




/9200 


SPACE 39 


30C02590 




0685 


0127 




OC 




/0127 




30C02600 




0686 


0000 


SCNT 


DC 




•-• 




30C02610 




0687 


0000 


SAVE3 

* 


. DC 




•-• 




30C02620 
3OC0263O 








ft******************************************* / 


30C02640 








• 






TEST ROUTINE 4 


30C02650 








CM***************************************** 


30CQ2660 








• THIS ROUTINE EXECUTES SPACE COMMANDS IN 


30C02670 








• INTERRUPT 


WITH THE 


PRINTER ON. CHECK IS MADE 


30C02680 


■ 






* FOR SPACE 


RESPONSE 


ANO FOR PROPER OSM 


30C02690 








* *»»*»•*»»♦♦♦****»» «»*»••»♦•»•»»»»•»•»»»«*»♦ 


30C02700 








• 










30C02710 




0688 01 


440008A0 


TST4 


BSI 


L 


INTLZ 


GO INITIALIZE ROUTINE 


30C02720 




068A 


021E 


• , 


DC 




/021E 


SPACE TEST -PRINTER ON 


30C02730 
30C02740 




DATE 


02JAN66 


IN AY 66 


01JUL66 15N0V66 03APR67 


PROG ID 


030C-2 


EC NO. 


415490 


415490B 


415490C 419643 4196430 


PAGE 


2A 
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068B 





ASF* 




tox 


3 


-12 


06 AC 





6BEC 


• __ 


STX 


3 


T3CTL 


06 SO 


01 


6C000ACB 


STX 


L 


tOOP 


06 8F 


01 


67800679 


T04A 


tox 


13 


T3CTL 


0691 


01 


C 70006 86 




ID 


L3 


T3CTL«13 


0693 





001 1 


- 


STO 




T04B 


0694 


01 


t 70006*7 




LO 


L3 


T3CTL«14 


0696 





1888 




SRT 




8 


0697 





0030 




STO 




LPCMT 


069S 





1090 




SLT 




16 


0699 





1808 




SRA 




8 


069A 





OOEC 


• 
T04A1 


STO 




SAVE3 


0696 





COEB 


LO 




SAVE 3 


069C 


01 


D4000C03 




STO 


L 


SPCSX 


069E 





6101 




tox 


1 


1 


069F 


00 


66O08200 




LOX 


L2 


/8200 


06A1 


01 


44000801 


• 


8S1 


L 


IDLE 


06A3 


01 


4+0009*6 


asi 


L 


PMSG 


06A5 





0000 


T04B 

• 

• 


OC 




«•-• 


06A6 


01 


440009EF 


BSI 


L 


LOCK 


06AS 


01 


74FF06CS 


MOX 


L 


LPCNT.-l 


06AA 





70F0 


• 


MOX 




T04A1 


06AB 


01 


74020679 


MOX 


L 


T3CTL.2 


06A0 





70E1 




MOX 




T04A 


06AE 


01 


44000600 




BSI 


L 


CNTRL 



SET TEST CONTROL 

SET LOOP AOORS 

LO CONTROL 

LO MSG CONTROL 

LO NO. OF LOOPS ♦ SPACES 



SAVE NUMBER OF SPACES 

LO NUMBER OF SPACES 
SET TO SPACE IN INT 



PRINT 1132 MSG 

CK FOR LOCK ON FUNCTION 

AOV CONTROL 

GO TO CONTROL RTN 



• TEST ROUTINE 5 

• THIS ROUTINE PRINTS A ROTATING PATTERN. THE 

• PATTERN IS GENERATED BY FLOATING A BIT ACROSS 

• THE PRINT BUFFER. 



06 BO 01 
06B2 

06B3 
06B4 01 



440008A0 
0408 

61CF 

6000098C 



0686 6132 
06B7 690E 

06B6 01 6C000ACB 



06BA 01 44000982 
06 BC 01 440009EF 

06BE 01 740109BC 

06C0 1000 

06C1 01 74FF06C6 

06C3 70F6 

06C4 01 44000600 

06C6 0000 

06C7 0031 

06CS o oooo 

06C9 0032 



TSTS BSI 
DC 

LDX 
STX 

TOSA LOX 
STX 

STX 

T05C BSI 
BSI 

• 

T05D MDX 
NOP 
NOV 
MDX 

BSI 

• 

LINES OC 
N049 DC 
LPCNT DC 
NOSO OC 



L INTLZ 

/0408 

1 -49 
LI RIPL3U 

1 50 
1 LINES 

L LOOP 



GO INITIALIZE ROUTINE 
RIPPLE PATTERN TEST 



SET EMIT CHAR CNT 
SET LINE COUNT 



RIPL 
LOCK 

RIPL3«1.1 

LINESt-1 

T05C 



L CNTRL 



49 

SO 



SET LOOP AODRS 



GO PRINT ONE RIPPLE LINE 
CK FOR LOCK ON FUNCTION 

AOV CHAR FOR NXT SCAN 
SAFETY NOP 
AOV LINE CNT 



GO TO CONTROL RTN 
LINE COUNT 
LOOP COUNT 



BATE 
EC NO. 



02JAN66 
415490 



01MAV66 
4154906 



01JUL66 
415490C 



15N0V66 
419643 



03APR67 
41964 30 



30C02730 
30C02760 
30C02770 
30C02780 
30C02790 
30C02800 
30C02810 
30C02820 
30C02830 
30C02840 
30C02850 
30C02860 
30C02870 
30C02880 
30C02890 
30C02900 
30C02910 
30C02920 
30C02930 
30C02940 
30C029S0 
30C02960 
30C02970 
30C02980 
30C02990 
30C03000 
30C03010 
30C03020 
30C03030 
30C03040 
30C03050 
30C03060 
30C03070 
30C03080 
30C03090 
30C03100 
30C03110 
30C03120 
30C03130 
30C03140 
30C03150 
30C03160 
30C03170 
30C03180 
30C03190 
30C03200 
30C03210 
30C03220 
30C03230 
30C03240 
30C03250 
30C03260 
30C03270 
30C03280 
30C03290 
30C03300 
30C0331C 
30C03320 
30C03330 
30C03340 
30C033S0 
30C03360 
30C03370 
30C03380 
30C03390 
30C03400 
30C03410 
30C03420 



PROS 10 
PAGE 



030C-2 

3 







a************************************************** 


' 30C03430 






• 






TEST ROUTINE 6 


30C03440 






*•***••***• *••••••**••»••*••#•• ••••••*•••••*•»*••** 


30C03450 






• 










30C03460 






* THIS ROUTINE PRINTS 


LINES OF ONE CHAR 


30C03470 






• UNTIL ALL 48 CHARACTERS HAVE BEEN PRINTED 


30C03480 
















30C03490 


















* 










30C03500 


06CA 01 


440008A0 


TST6 


BSI 


L 


INTLZ 


GO INITIALIZE ROUTINE 


30C03510 


06CC 


0808 


• 


OC 




/0808 


ALL CHARACTERS 


30C03520 
30C03530 


06CC 


6100 


T06A 


LOX 


1 


-48 




30C03540 


06CE 


6 90 A 




STX 


1 


T06O+1 


SET CHAR CNT 


30C03530 


06CF 01 


6C000ACB 


* 


STX 


L 


LOOP 


SET LOOP AOORS 


30C03560 
30C03570 


0601 


6132 


T06B 


LOX 


1 


50 


SET EMIT LOOP CNT 


30C03580 


0602 


69F5 


• 


STX 


1 


LPCNT 




30C03590 
30C03600 


0603 00 


66008200 


T06C 


LOX 


L2 


/8200 


SET DSM S/B 


30C03610 


0605 


6101 




LOX 


1 


1 


SET IDLE CNT 


30C03620 


06 D6 01 


44000801 


• 


BSI 


L 


IDLE 




30C03630 
30C03640 


0608 00 


65000000 


T060 


LDX 


LI 


*— • 


XR1-EMIT TABLE POSITION 


30C 03650 


06 DA 01 


C4000COA 




LO 


L 


EMIT 


CHECK IF CHARACTER IS 


30C03660 


060C 01 


040009EE 




STO 


L 


A1EN 


STORE EMIT 


30C03670 


060E 01 


95000CEA 




S 


LI 


CHAK+48 


TO BE PRINTED 


30C03680 


06E0 01 


4C1806E9 


• 


BSC 


L 


T06E,*- 


YES IF BRANCH 


30C03690 
30C03700 


06E2 01 


74FF0B1A 




MOX 


L 


ICNT.-l 


SKIP IF INTRPT CNT-1 


30C03710 


06E4 


70EC 




MOX 




T06B 




30C03720 


06E5 01 


74FF06CB 




MOX 


L 


LPCNT.-l 


AFTER SO CONSECUTIVE 


30C03730 


06E7 


70EB 




MOX 




T06C 


EMITS - SPACE 


30C03740 


06E8 


7002 


* 


MOX 




T06E+2 


THEN CONTINUE 


30C03750 
30C03760 


06E9 01 


440009CF 


T06E 


esi 


L 


Al 


SET PRINT BUFR TO ONES 


30C03770 


06EB 


6101 




LOX 


1 


1 


SET SCAN CNT 


30C037S0 


06EC 01 


440008C6 




BSI 


L 


PRINT 




30C03790 


06EE 01 


440009EF 


• 


BSI 


L 


LOCK 


CK FOR LOCK ON FUNCTION 


30C03800 
30C03810 


06F0 01 


74010609 




MOX 


L 


T06O4 1.1 


ADV TO NXT CHAR 


30C03820 


06F2 


700E 




MOX 




T066 




30C03830 


06F3 01 


44000600 


* 
• 


BSI 


L 


CNTRL 


GO TO CONTROL RTN 


30C03840 
3OC038S0 
30C03B60 






• ********♦• ••*♦•*••••«••*••>•*•* •••••*•••*•*• 


30C03870 






* 






TEST ROUTINE 7 


3OC03880 






ft******************************************* 


30C03890 






* THIS ROUTINE PRINTS 


LINES OF ALL ONE CHARACTER 


30C03900 
30C03910 




















• 










30C03920 


06FS 01 


440008A0 


TST7 


BSI 


L 


INTLZ 


GO INITIALIZE ROUTINE 


30C03930 


06F7 


8021 


• 


OC 




/8021 


STRESS TEST 


30C03940 
30C03950 


06F8 


6164 




LOX 


1 


100 


SET LINE COUNT 


30C03960 


06F9 


69CC 


• 


STX 


1 


LINES 




30C03970 
30C039S0 


06FA 01 


6C000ACB 




STX 


L 


LOOP 


SET LOOP AODRS 


30C03990 


06FC 01 


440009CF 


T07A 


BSI 


L 


Al 


SET PRINT AREA TO ONES 


3OC040O0 


06FE 


6101 




LOX 


1 


1 


SET SCAN CNT 


30C04010 


06FF 01 


44000SC6 




BSI 


L 


PRINT 


GO PRINT 


30C04020 


0701 


6110 




LOX 


1 


16 


SET FOR 16 IDLES 


30C04030 


0702 00 


66008200 




LOX 


L2 


/8200 


SET DSM S/B 


30C04040 


0704 01 


44000801 




BSI 


L 


I0LE 




30C04050 


0706 01 


C4000C0A 




LO 


L 


EMIT 




30C04060 


0708 01 


D40009EE 


* 


STO 


L 


A1EN 




30C04070 
30C 04080 


070A 01 


4400O9EF 


• 


BSI 


L 


LOCK 


CK FOR LOCr ON FUNCTION 


30C04O90 
30C04100 


DATE 


02JAN66 


MAY 66 


01JUL66 15N0V66 03APR67 


PROG 10 O30C-2 


EC NO. 


415490 


4154906 


415490C 419643 4196430 


PACE 3A 
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07OC 


01 


74FF06C6 




NOX 


L 


LINES,-1 


UPDATE LINE COUNT 


30C04110 




070E 





70E0 




MOX 




T07A 




30C04120 




070F 


01 


44000600 


• 


BSI 


L 


CNTRL 


GO TO CONTROL RTN 


30C04130 
30C04140 










»*•**••*•***•••••*•»**•*••*•*•••*••****•**** 


30C04150 










* 


INITIALIZATION FOR ROUTINES 8,9, AMO A 


30C04160 










•••**•**•**•**••••*••*••••••*•• ************* 


30C04170 










• 


THIS ROUTINE IDENTIFIES THE SEQUENCE OF PUNCHES 


30C041B0 










• 


IN THE CHANNEL CONTROL 


TAPE. 


30C04190 










•- 










30C04200 






















• 










30C04210 




0711 





0000 


IN89A DC 




*-• 




30C04220 




0712 





C06C 




LO 




SM89A 




30C04230 




0713 


01 


4C2 00775 




BSC 


L 


I89AX,2 


BR IF INITIALIZED 


30C04240 




0715 





6869 




STX 




SH89A 




30C042S0 




0716 


01 


440008AD 




BSI 


L 


INTLZ 


GO INITIALIZE ROUTINE 


30C04260 




0718 





7000 


• 


DC 




1 7000 




30C04270 
30C04280 




0719 


00 


65O0C0B0 




LOX 


LI 


176 


SET FOR 176 SPACES 


30C04290 




071B 





69AC 




STX 


1 


LPCNT 




30C04300 




071C 





1810 




SRA 




16 




30C04310 




0710 





610F 




LOX 


1 


15 




30C04320 




071E 


01 


050007BE 




STO 


LI 


CH12S-1 




30C04330 




0720 





7 IFF 




NOX 


1 


-I 




30C04340 




0721 





70FC 




MOX 




•-* 




30C04350 




0722 





6101 




LOX 


1 


1 




30C04360 




0723 





6945 




STX 


1 


Toao+i 




30C04370 




0724 


01 


600007CA 




STX 


LI 


SHIFT 




30C04380 




0726 


01 


600007CB 




STX 


LI 


SHFT2 




30C04390 




0728 


01 


C40009B4 




LO 


L 


K8000 




30C04400 




072A 


01 


04000 7C7 


• 


STO 


L 


SEQSM 


SET SEQ SM 


30C04410 
30C04420 
30C04430 
30C04440 










• 


SPACE TO CHANNELS 






















30C044S0 
30C04460 










• 












072C 


01 


44000946 




BSI 


L 


PMSC 


HS6- SPACE TO CHANNEL 


30C 04470 




072 E 





9C00 


• 


DC 




/9C00 


MS6 CONTROL 


30C044B0 
30C04490 




072F 


01 


6C000ACB 


T08A STX 


L 


LOOP 


SET LOOP AOORS 


30C04500 




0731 


01 


4400093A 




BSI 


L 


STOP 


STOP THE PRINTER 


30C04510 




0733 


01 


440008F7 




BSI 


L 


SPACE 




30C04520 




0735 


01 


0C000B1A 




XIO 


L 


SENSE-1 


RECORO CHANL PUNCH IF 


30C 04530 




0737 


01 


ECOOOBEE 


• 


OR 


L 


HAS 


DETEC IN INTRPT 
OR MAINLINE 


30C04540 
30C04S50 




0739 





1008 




SLA 




8 




30C04560 




073A 


01 


4C18075C 


• 


BSC 


L 


T08B,*- 


BR IF CHANL BIT OFF 


30C04570 
30C04580 




07 3C 


01 


440007CE 




BSI 


L 


CHHSC 


PRINT CHANL IO NSC 


30C 04590 




073E 





8500 


• 


DC 




/8 500 




30C04600 
30C04610 




07 3F 


01 


EC0007C0 




OR 


L 


VCHNL 


RECORO EACH CHANNEL 


30C04620 




0741 


01 


O4O007C0 




STO 


L 


VCHNL 


OETECTEO 


30C04630 




0743 


01 


C40OO7C7 




LO 


L 


SEQSM 




30C04640 




0745 





1001 




SLA 




1 




30C04650 




0746 


01 


4C08075C 


• 


BSC 


L 


T088,* 




30C04660 
30C04670 










• 


AFTER SECOND CHANNEL, 


CHECK FIRST 16 CHANNELS 


30C04680 










• 


FOR REPEAT 


OF CHANNEL 


SEQUENCE. 


30C 04690 










• 










30C04700 




0748 


01 


668007CA 


T08A1 LOX 


12 


SHIFT 


XR 2-CHAN BEFORE REPEAT 


30C04710 




074A 


01 


C40007CC 




LO 


L 


LTSEQ 


LOAD LAST SEQUENCE 


30C 04720 




074C 





1200 




SLA 


2 





CHECK FOR REPEAT 


30C04730 




0740 


01 


E40007CC 




ANO 


L 


LTSEQ 


ZERO IF NOT REPEAT 


30C04740 




074F 


01 


4C20075A 




BSC 


L 


T08A2.Z 


BR IF REPEAT 


30C04750 




0751 


01 


668007CB 




LOX 


12 


SHFT2 




30C04760 




0753 





C077 




LO 




SHFT2 




30C04770 




0754 





F075 




EOR 




SHIFT 




30C04780 




DATE 




02JAN66 


OIK AY 66 


01JUL66 15N0V66 0^APR67 


PROG 10 
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EC NO. 


415490 


415490B 
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4 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 



PART NO. 
PAGE 



2191220 

4A 



1132 PRINTER FUNCTION TEST 



0755 





6A74 




STX 


2 


SHIFT 




30C04790 




0756 


01 


40200748 




BSC 


L 


T08A1,Z 


BR FOR 2ND CHECK 


30C04800 




0758 


01 


740107CA 




MOX 


L 


SHIFT, 1 




30C04810 




075A 


01 


740107CB 


T08A2 

• 


MDX 


L 


SHFT2.1 




30C04820 
30C04830 




07 5C 


01 


440 009c F 


T08B 


BSI 


L 


LOCK 


CK LOCK SW 


30C04840 




075E 





C068 




LO 




SEQSM 




30C04850 




07 5F 


01 


4C180764 




BSC 


L 


T08C,*- 




3 OC 04860 




0761 


01 


74FF06C8 




NOX 


L 


LPCNT.-l 


DEC LOOP CNT 


30C04870 




0763 





70CB 


• 


NOX 




T08A 




30C04880 
30C04890 




0764 





C068 


T08C 


LO 




VCHNL 




30C 04900 




0765 


01 


F4O00BFF 




EOR 


L 


KFFOO 




30C04910 




0767 





0060 


• 


STO 




TEMPS 




30C04920 
30C04930 




0768 


00 


65000000 


T08D 


LOX 


LI 


•-* 


XR1 -CHANNEL NUMBER 


30C04940 




07 6 A 


01 


44280A5B 




BSI 


L 


ERR12,*2 


PRINT MISSING CHAN MSG 


30C04950 




076C 


01 


74010769 




NOX 


L 


T08D*1,1 


AOV TO CK NEXT CHAN 


30C04960 




076E 





C0S9 




LO 




TEMPS 




30C04970 




076 F 





1001 




SLA 




1 


SHIFT TO NEXT CHAN 


30C04980 




0770 





0057 




STO 




TEMPS 




30C04990 




0771 


01 


4C200768 


• 
• 


BSC 


L 


TOSD.Z 


BR IF MORE ERRORS 


30C05000 
30C05O10 
30CO5O20 




0773 





1810 




SRA 




16 




30C05030 




0774 





0052 


* 


STO 




SEQSM 




30C05040 
30C05050 




0775 


01 


440008F7 


I 89 AX 


BSI 


L 


SPACE 


ADVANCE TO the NEXT 


30C05060 




0777 


01 


0C000B1A 




XIO 


L 


SENSE-1 


CHANNEL PUNCH BEFORE 


30C05070 




07 79 


01 


ECOOOBEE 




OR 


L 


MAS 


START IMG TEST ROUTINE 


30C05080 




07 7B 





1008 




SLA 




8 




30C0S090 




07 7C 


01 


4CA00711 




BSC 


I 


IH89A.Z 




30C05100 




077E 





70F6 


• 


MDX 




IS9AX 




30C0511O 
30C05120 




077F 





0000 


SH89A 

• 


DC 




*-• 




30C05130 
30C05140 










• ♦at****************************************** 


30C05150 










• 






TEST ROUTINE 8 


30C0S160 










••A****************************************** 


30COS170 










• THIS TEST CHECKS THAT 


EACH CHANNEL 


30C05180 










* PUNCH HILL I 


GENERATE A 


SKIP INTERRUPT. 


30C05190 




















30C05200 
30C05210 










• 












C780 


01 


440008AD 


TST8 


BSI 


L 


INTLZ 




30C05220 




0782 





E401 




OC 




/E401 




30C05230 




0783 





408D 




BSI 




IN89A 


INITIALIZE 


30C05240 




0784 





6202 




LDX 


2 


2 




30C05250 




0785 


01 


6E0006C8 




STX 


L2 


LPCNT 




30C05260 




0787 


01 


440008F7 




BSI 


L 


SPACE 




30C05270 




0789 


01 


44000946 




BSI 


L 


PMSC 




30C05280 




078B 





ACOO 




OC 




/ACOO 




30C05290 




07 8C 





62FF 




LOX 


2 


-1 




30C05300 




0780 





6A3A 


• , 


STX 


2 


TEMPS 


SET TEMPS TO ALL BITS 


30C05310 
30C0S320 




078E 


01 


6C000ACB 




STX 


L 


LOOP 


SET LOOP AOORS 


30CO533O 




0790 


01 


658007CA 


T08E 

* 


LOX 


11 


SHIFT 


LO SHIFT FACTOR 


30C0534O 
30C053S0 




0792 





6908 


TOBF 


STX 


1 


T08X1U 


STO XR1 


30C05360 
30C05370 




0793 


01 


4400093 A 




BSI 


L 


STOP 


STOP THE PRINTER 


30C05380 




0795 





1810 




SRA 




16 


SET SKIP TO SM 


30C05390 




0796 


00 


66005000 




LOX 


L2 


/SOOO 


SET BUSY DSM S/B 


30C05400 




0798 


01 


44000919 


• 


BSI 


L 


SKIP 




30C05410 
30C05420 




079A 


00 


65000000 


T0BX1 


LOX 


LI 


*-* 


RESTORE XRl 


30C05430 




079C 


01 


668007CA 




LOX 


12 


SHIFT 




30C05440 




079E 


01 


C4000BEE 




LD 


L 


MAS 


LO OSM 


30C05450 




07 AO 





1008 




SLA 




8 




30C05460 




DATE 
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.1132 PRINTER FUNCTION TEST 



PART NO. 2191220 
PAGE SA 



07A1 
07A2 
07A3 
07A4 01 
07 A6 
07A7 01 
07A9 
07AA 
07 AB 
07 AC 01 
07 A E 















07 AF 01 
07B1 
07 B2 
07B3 
07B4 01 



07B6 
07B7 



07B8 01 
07 B A 01 
07BC 



6308 

1340 

10AO 

C70007BE 

1AC0 

EF0007BE 

19C0 

1280 

E01C 

44180A6D 

0019 

C4000BEE 
1008 
♦01 B 
8500 
6580079B 

71FF 
700A 

440009EF 
74FF06C8 
7003 



LOX 

SLCA 

SLT 

LO 

RTE 

GR 

RTE 

SLT 

AND 

BSI 

STO 



3 
3 

L3 

2 

L3 

1 

2 



8 



32 

CH12S-1 



CH12S-1 





TEMP8 

ERR13.*- 

TENP8 



LO L MAS 
SLA 8 

BSI CHNSG 

OC /8S0O 

LOX II T08X1U 



IDENTIFY COOE 

LO SEQUENCE FOR THIS CHAN 

RTE BY SHIFT FACTOR 

CK FOR PROPER SEQ 
BR IF SEQ ERR 

LO OSM 

MSG- CHANNEL X 



MDX 
MDX 

BSI 

MOX 
NOX 



1 -1 
T08F 

L LOCK 
L LPCNT.-l 
T08E 



CK FOR LOCK ON FUNCTION 

DEC LOOP COUNT 

BR IF NOT FINISHEO 



07 BC 01 44000600 



BSI L CNTRL 








0000 


• 




CHANNEL SEQUENCE TABLE 


07BF 


• 
CH12S 


OC 


•-• 




07C0 





0000 


CH9SQ 


OC 


•-• 




07C1 





0000 


CH6S0 


OC 


•-• 




07C2 





0000 


CH5SQ 


OC 


•>• 




07C3 





0000 


CH4SQ 


OC 


*-• 




07C4 





0000 


CH3S0 


DC 


•-• 




07C5 





0000 


CH2S0 


OC 


•-• 




07C6 





0000 


CHI SO 


DC 


•-• 




07C7 





0000 


SEOSM 


DC 


•-• 


SEQ SM 


07C8 





0000 


TEMPS 


OC 


*-• 




07C9 





0000 




DC 


•-• 




07CA 





0000 


SHIFT 


OC 


•-• 




07CB 





0000 


SMFT2 


DC 


•-• 




07CC 





0000 


LTSEQ 


OC 


•-• 




07C0 





0000 


VCHNL 

* 


DC 


•-• 


BIT SET FOR EACH CH 




* 




PRINT 


CHANNEL MESSAGE 








•— — 









07CE 0000 

07CF 01 4C1B07EB 

0701 00F7 

0702 6107 
07D3 1140 

0704 1001 

0705 01 4C200A76 



CHNSG 



0707 
07 D8 01 
070A 01 
07 DC 
07D0 
07 DE 
07 OF 










COEF 

E00007BF 

D5O007BF 

OOEF 

C0E9 

1801 

DOE 7 



OC 

BSC 

STO 

LDX 

SLCA 

SLA 

BSC 

LO 

OR 

STO 

STO 

LO 

SRA 

STO 



•-• 
L CHM2,*- 
TEMP8U 
1 T 
1 
1 
L ERR14.Z 

SEOSM 
LI CH12S 
LI CH12S 

LTSEQ 

SEOSM 

1 

SEQSM 



SAVE CHANNEL CODE 
IDENTIFY BIT 
ERR IF MORE THAN 1 BIT 
LO SEQ SM 



LO SEQ SM 

ADV SEQ 



07 EO 01 C50007EF 



LO LI CHTBL 



LO MSG 



OATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490B 



01JUL66 
415490C 



15N0V66 
419643 



03APR67 
4196430 



30C05470 
30C05480 
30C05490 
30C0550O 
30C05510 
30C05520 
30C05530 
30C05540 
30C05550 
30C05560 
30C05570 
30C05580 
30C05590 
30C05600 
30C05610 
30C05620 
30C05630 
30C05640 
30C05650 
30C05660 
30C05670 
30C05680 
30C05690 
30C05700 
30C05710 
30C05720 
3OC0S73O 
30C05740 
3OC05750 
30C05760 
30C05770 
30C05780 
30C05790 
30C05800 
30C05810 
3CC05820 
30C05830 
30C05840 
30C05850 
30C05860 
30C05870 
30C05880 
30C05890 
30C05900 
30C05910 
30C05920 
30C0S930 
30C05940 
30C05950 
30C05960 
3OC0597O 
30C05980 
30C05990 
30C06000 
30C06010 
30C06020 
3OC06O30 
30C06040 
30C06050 
30C06060 
30C06070 
30C06080 
30C06090 
30C06100 
30C06U0 
30C06120 
30C06130 
30C06140 



PROG ID 
PAGE 



03OC-2 
5 



07 E 2 


01 


04000E57 




STO 


L 


PMG26 




30C06150 




07E4 


01 


C48007CE 




LO 


I 


CHNSG 




30C06160 




07E6 





0002 




STO 




CHNl 




30C06170 




07E7 


01 


44000946 




BSI 


L 


PNSG 


PRINT 1132 MSG 


30C06180 




07E9 





0000 


CHNl 

• 


OC 




•-* 


MSG CONTROL 


30C06190 
30C06200 




07EA 





COOE 




LO 




TENPSn 




30C06210 




*7EB 


01 


740107CE 


CHN2 


MDX 


L 


CHMSG.l 




30C06220 




07EC 


01 


4C6007CE 


• 


BSC 


I 


CHNSG 




30C06230 
30C0624O 




07 EF 





F1F2 


CHTBL 


OC 




/FIF2 


12 


30C06250 




07F0 





F900 




DC 




/F900 


9 


30C06260 




07F1 





F600 




OC 




/F600 


6 


30C06270 




07 F2 





F500 




OC 




/FSOO 


5 


30C06280 




07F3 





F400 




DC 




/F400 


4 


30C06290 




07F4 





F300 




OC 




/F300 


3 


30C06300 




07F5 





F200 




OC 




/F200 


2 


30C06310 




07F6 





F100 


• 


DC 




/F100 


I 


30C06320 
30C06330 










*•*»**•*•*»**•*••*♦*»*#*€«♦**•*•♦♦♦»##*#***♦♦ 


30C06340 










* 






TEST ROUTINE 9 


30C06350 










******♦*»»* ***#**♦» **»*»•♦*•»•*•***»*#*•*»*# 


30C06360 










• THIS ROUTINE MILL SKIP TO EACH CHANNEL IN 


30C06370 










• ORDER, 


STARTING MITH 


CHANNEL ONE. PRINTER IS 


30C06380 










* OFF DURING 


THE SKIP 


OPERATION. 


30C 06390 
30C06400 




























* 










30C06410 




J07F7 


01 


44O008A0 


TST9 


BSI 


L 


INTLZ 


GO INITIALIZE ROUTINE 


30C06420 




07F9 





2020 




OC 




/202D 


MSG CONTROL 


30C06430 




07FA 





202D 




DC 




/2020 


MSG CONTROL 


30C06440 




07FB 


01 


44000711 


• 


BSI 


L 


IN89A 




30C06450 
30C06460 




07F0 


01 


C40009B4 




LD 


L 


K8000 




30C06470 




07FF 





DOCS 


• 


STO 




TEMPS 




30C06480 
30C06490 




0800 


01 


6CO00ACB 




srx 


L 


LOOP 


SET LOOP AOORS 


30C06500 




0802 


01 


440008F7 


T09A 


BSI 


L 


SPACE 




3CC06510 




08 04 


01 


C40005E1 




LO 


L 


SM2 


LO SELECT CHANNEL SMS 


30C06520 




0806 





1008 




SLA 




8 




30C06530 




0807 


01 


4C200800 


• 


BSC 


L 


T09B,2 


BR IF SM ENTRY 


30C06540 
30C065S0 




OB 09 





COSE 




LO 




TEMPS 


LO SKIP SEQ SM 


30C06560 




060A 





E0C2 




AND 




VCHNL 


CHECK FOR VALIO CHNL 


30C06570 




0808 


01 


4C160810 


• 


BSC 


L 


T09C.+- 




3OC06580 
30C06590 




0600 





40C0 


T09B 


BSI 




CHMSG 


MSG- SKIP TO X 


30C06600 




080E 





A 000 




DC 




/AOOO 


MSG CONTROL 


30C06610 




OBOF 


01 


4400093A 


• 


BSI 


L 


STOP 


STOP THE PRINTER 


30C06620 
3OC06630 




0811 





C0B7 




LD 




TENP8«1 


LO SKIP SEQ SM 


30C06640 




0812 


00 


66005000 




LOX 


L2 


/SOOO 


SET BUSY OSM S/B 


30C06650 




0614 


01 


44000919 


• 
• 


BSI 


L 


SKIP 




30C06660 
30C06670 
30C06680 




0816 


01 


C4000BEE 




LO 


L 


MAS 


LO DSM 


30C06690 




0818 





1008 




SLA 




8 


LOOK AT CHANNEL BITS 


30C06700 




0819 





40B4 




BSI 




CHNSG 


MSG- CHANNEL X 


30C06710 




081A 





85C0 




DC 




/8500 


MSG CONTROL 


30C06720 




081B 


01 


440009EF 


• 


BSI 


L 


LOCK 


CK FOR LOCK ON FUNCTION 


30C06730 
30C06740 




0810 





COAA 


T09C 


LO 




TEMPS 


LO SKIP SEQ SM 


30C06750 




0B1E 





1801 




SRA 




1 


SHIFT FOR NEXT CHANNEL 


30C06760 


• 


081F 





O0A8 




STO 




TEMPS 




30C06770 




0820 





1808 




SRA 




8 




30C067B0 




0821 


01 


4C200802 




BSC 


L 


T09A.Z 


LOOP IF NOT ZERO 


30C06790 




0823 


01 


44000600 


• 


BSI 


L 


CNTRL 




30C06800 
30C06810 










ft******************************************* 


30C06820 




OATE 




02JAN66 


01MAV66 


01JUL66 15N0V66 03APR67 
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EC NO. 
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OS 2 5 01 44OO08A0 
0827 102E 
0628 01 44000711 

082A 01 C40O09B4 
0B2C 009B 

0820 01 6C000ACB 
08 2 F 01 44000SF7 
08 31 01 C40005E1 
0833 1008 
06 34 01 4C20083A 

0836 C091 

0837 E095 

0838 01 4C180853 



08 3A 
0838 



4093 
ADOO 



083C 6101 

08 30 00 66008200 

08 3F 01 44000801 

0841 00 650003ES 
0843 01 60000BFO 

0845 01 C40007C9 

0847 00 66005200 
0849 01 44000919 

0848 01 C4000BEE 
0840 1008 
084E 01 440007CE 
08 50 6500 
0851 01 440009EF 

0853 01 C40007C8 
0855 1801 
0656 01 040007CS 

0858 1808 

0859 01 4C20082F 
08 5B 01 44000600 



0850 01 440008AD 
085F 0000 

0860 00 44800163 
0862 1 08AB 



• TEST ROUTINE A 

• THIS ROUTINE MILL SKIP TO EACH CHANNEL IN 

• OROER* STARTING KITH CHANNEL ONE. PRINTER IS 

• ON OURING THE SKIP OPERATION. 

• 



TSTA 



TOAA 



TOAB 



TOAC 



BSI 

OC 

BSI 

LO 
STO 

STX 

BSI 

LO 

SLA 

BSC 

LO 

AND 

BSC 

BSI 
OC 

LOX 
LOX 
BSI 

LOX 
STX 

LO 

LOX 

BSI 

LO 

SLA 

BSI 

OC 

BSI 

LO 
SRA 
STO 
SRA 

BSC 
BSI 



INTLZ 
/102E 
IN89A 

K8000 
TENPB 

LOOP 
SPACE 
SH2 
8 
TOAB* 2 

TEMPS 
VCHNL 
TOAC**- 

CHMSG 
/ADOO 



1 1 
L2 /820O 
L 10LE 

LI 1000 
LI IOLCT 

L TEHP8+1 
L2 /520O 
L SKIP 

L MAS 

8 
L CHMSG 

/850O 
L LOCK 



TEMPO 

1 

TEMPS 

8 

TOAA. 2 

CNTRL 



GO INITIALIZE ROUTINE 
MSG CONTROL 



SET LOOP AOORS 

LO SELECT CHANNEL SMS 

BR IF SM ENTRV 

LO SKIP SEQ SM 
CHECK FOR VALID CHNL 



MSG- SKIP TO X 
MSG CONTROL 



GO START THE PRINTER 

SET IOLCT TO KEEP 
PRINTER GOING 

LO SKIP SEQ SM 
SET BUSY OSM S/B 



LO OSM 

LOOK AT CHANNEL BITS 

MSG- CHANNEL X 

MSG CONTROL 

CK FOR LOCK ON FUNCTION 

LO SKIP SEQ SM 

SHIFT FOR NEXT CHANNEL 



LOOP IF NOT ZERO 



• *#*****»*• *******•*•*«.*******•*•»• ********* 

• TEST ROUTINE B 
*•*•*••*•*»*••**•*•*•*•******** •**•******••* 

• THIS ROUTINE ENABLES BIT SWITCH CONTROL OF THE 

• CHARACTER AND THE COLUMN TO BE PRINTED. ONLY 

• ONE CHARACTER MILL BE PRINTEO ON EACH LINE. 

• THE COLUMN NUMBER MUST BE ENTEREO IN SWITCHES 

• 1-7* AND THE CHARACTER ID IN SWITCHES 8-15. 

• PRINTING MILL START MHEN SWITCH IS TURNED ON. 



TSTB BSI L INTLZ 

OC /oooo 

BSI I LOG 

OC SETUP 



GO INITIALIZE ROUTINE 
PRINT SET UP MSG 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
41S490B 



01JUL66 
415490C 



15N0V66 
419643 



03APR67 
4196430 



30C06830 
3OC0684O 
30C06850 
30C06860 
30C06870 
30C06880 
30C06890 
30C06900 
30C06910 
30C06920 
30C06930 
30C06940 
30C06950 
30C06960 
30C06970 
30C06980 
30C06990 
30C07000 
30C07010 
30C07020 
30C0703O 
30C07040 
3OC0705O 
30C07060 
30C07070 
30C07080 
30C07090 
30C07100 
30C07110 
30C07120 
30C07130 
30C07140 
30C07150 
30C07160 
30C07170 
30C07180 
30C07190 
30C07200 
30C07210 
30C07220 
30C07230 
30C07240 
30C07250 
30C07260 
30C07270 
30C07280 
30C07290 
30C07300 
30C07310 
30C07320 
30C07330 
30C07340 
30C07350 
30C07360 
30C07370 
30C0738O 
30C07390 
30C07400 
30C07410 
30C07420 
30C07430 
30C07440 
30C0745O 
30C07460 
30C07470 
30C07480 
30C07490 
3OC07500 
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PAGE 



030C-2 

6 



0863 


083C 


T08A 


XIO 




R8SMS 


READ THE BIT SMS 


30C07510 




0864 


C03F 




LO 




BSMS 




30C07520 




0865 01 


4C20086D 


* 


BSC 


L 


T0BB t *2 


USE SMS IF SM ZERO ON 


30C07530 
30C07540 




0867 01 


67000863 




LOX 


L3 


TOBA 


LOOP UNTIL SM ZERO ON 


30C07550 




0869 01 


6F0005E6 




STX 


L3 


HLSCF*1 




30C07560 




0868 01 


♦C000B10 


* 


BSC 


L 


MAIT4 




30C07570 
30C07S60 




0860 


1001 


TOBB 


SLA 




1 


REMOVE SM ZERO 


30C07590 




086E 


1801 




SRA 




1 




30C07600 




086F 


188S 




SRT 




8 


PUT 8-15 IN EXT 


30C07610 




0870 


0034 




STO 




PCOLM 


STO COLUMN NO. SMS 1-7 


30C07620 




0871 


1888 




SRT 




8 




30C07630 




0872 


1098 




SLT 




24 




30C07640 




0873 


0035 




STO 




CHID 


STO CHAR ID 


30C07650 




0874 01 


4C18089A 




BSC 


L 


TOBF,*- 


BYPASS PRINT UNLESS A 
VALIO CHARACTER ID 


30C07660 
30C07670 
30C07680 




08 76 01 


6C000ACB 




STX 


L 


LOOP 


SET LOOP AOORS 


30C 07690 




08 78 


6132 




LOX 


1 


50 


SET EMIT LOOP CNT 


30C07700 




0079 01 


6D0006C8 




STX 


LI 


LPCNT 




30C07710 
30C07720 




08 78 00 


66008200 


TOBC 


LOX 


L2 


/8200 


SET DSM S/B 


30C07730 




08 70 


6101 




LOX 


1 


1 


SET IOLE CNT 


30C07740 




08 7E 01 


44000801 




BSI 


L 


IDLE 




30C07750 
30C07760 




0880 01 


C4000C0A 


TOBO 


LO 


L 


EMIT 


CHECK IF CHARACTER IS 


30C07770 




0882 


9026 




s 




CHID 


TO BE PRINTED 


3OC0778O 




0883 01 


4C18088C 


* 


BSC 


L 


TOBEt*- 


YES IF BRANCH 


30C07790 

30C07800 




0885 01 


74FF0B1A 




MDX 


L 


ICNT.-l 


SKIP IF INTRPT CNT-1 


30C07810 




0887 


700B 




MOX 




TOBA 


BR IF MISSED AN EMIT 


30C07820 




0888 01 


74FF06C8 




MOX 


L 


LPCNT ,-1 


LOOP FOR 50 SEQUENTIAL 


30C07830 




08 8 A 


70F0 




MOX 




TOBC 


EMITS 


30C07840 




0888 


700E 


* 


MOX 




TOBF 


SPACE IF NO MATCH 


30C07850 
30C07S60 




08 8C 


C018 


TOSE 


LO 




PCOLN 


LO COL NO. 


30C07870 




0880 


1890 




SRT 




16 




30C07880 




088E 


A817 




D 




X16 




30C07890 




088F 01 


0C0008A2 




STO 


L 


TENPB 




30C079O0 




0891 01 


658008A3 




LOX 


11 


TEMPB*1 


XR1-BUF WORD BIT POSITION 


30C07910 




0893 01 


668 008 A2 


• 


LDX 


12 


TEMPB 


XR2-BUF WORD NUMBER 


30C07920 
30C07930 




0895 01 


C40009B4 




LD 


L 


K8000 




30C07940 




0897 


1900 




SRA 


1 







30C079S0 




0898 


EA20 




OR 


2 


32 




30C0796O 




0899 


0220 


• 


STO 


2 


32 


SET BIT IN BUFFER 


30C07970 
30C07980 




089A 


6101 


TOBF 


LDX 


1 


1 


SET SCAN CNT 


30C07990 




0898 01 


440008C6 




BSI 


L 


PRINT 




30C08000 




0890 01 


440009EF 


• 


BSI 


L 


LOCK 


CK FOR LOCK ON FUNCTION 


30C08010 
30C08020 




089F 


70C3 


• 


MOX 




TOBA 




30C08030 
30C0B040 




08 AO 


0000 




BSS 


E 







30C08050 




08 AO 1 


08A4 


R8SMS 


OC 




BSMS 




30C08060 




08A1 


3A00 




DC 




/3A00 


IOCC TO READ BIT SMS 


30C08070 




08A2 


0000 


TEMPB 


OC 




*-* 




30C080SO 




08A3 


0000 




OC 




*-• 




30C08090 




08A4 


0000 


BSMS 


DC 




*-# 




30C08100 




08A5 


0000 


PCOLN 


OC 




•-• 


PRINT COL STOREO HERE 


30C0S110 




08A6 


0010 


X16 


DC 




16 




30C08120 




08A7 


0030 


K0030 


OC 




/0030 




30C08130 




08A8 


0002 


SETUP 


DC 




2 




30C08140 




08 A9 


0000 


CHID 


DC 




•—* 




30C08150 




OBAA 


0000 




OC 









30C08160 




08AB 1 


0088 




OC 




ABSM 




30C08170 




08AC 


0000 




OC 









30C08180 




OATE 


02JAN66 


IN AY 66 


D1JUL66 15N0V66 03APR67 
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* INITIALIZE SUBROUTINE 



STOP THE PRINTER 



OSAO 





0000 


1NTU 


DC 




*-• 


08AE 


01 


440009 3A 


• 


BSI 


L 


STOP 


08 BO 


01 


440009BA 


BSI 


L 


CLEAR 


08B2 


01 


04000ACB 


• 
• 


STO 


L 


LOOP 


08B4 


01 


44000839 


BSI 


L 


READY 


08 B6 





4040 


BSI 




SPACE 


08 B7 





403 F 


• 


BSI 




SPACE 


08B8 


01 


C48008A0 


ID 


I 


INTLZ 


08BA 


01 


4C1808C2 


* 


BSC 


L 


INT2,*- 


06BC 





D002 


STO 




INT1 


08B0 


01 


44000946 




BSI 


L 


PNSO 


08 BF 





0000 


INT1 

• 


DC 




•-• 


oeco 





4036 


BSI 




SPACE 


08CI 





4033 


^ 


BSI 




SPACE 


0BC2 


01 


7401 08 AO 


I NT 2 


mox 


L 


IMTLZ.1 


0BC4 


01 


4CB008A0 




BSC 


I 


INTLZ 



SET PRINT BUF TO ZERO 
RESET LOOP AOORS 

CR FOR READY 



LD NSC CONTROL 

BR IF NSC CONTROL- ZERO 

SET CONTROL 
PRINT 1132 NSC 
NSC CONTROL 



RETURN 



• PRINT SUBROUTINE 

ft****************************************** 



08 C6 





0000 


PRINT 


DC 




•-• 


08C7 


01 


C4000SE2 




LO 


L 


SMS 


08C9 


01 


D4000BFO 




STO 


L 


IOLCT SET FOR PRINT 


08CB 


CO 


66008200 




LOX 


L2 


/8200 SET FOR PRINT OSM 


08C0 





400A 




BSI 




PRCON 


OBCE 





4028 




BSI 




SPACE 


08CF 


01 


4C8008C6 




BSC 


I 


PRINT 










*••••••«•*••••***•**••••••••*•••••••••• 














I OLE SUBROUTINE 








•••**•*•••*•**••••*•*•*••••••••*•**••*••*•** 


0801 





0000 


IDLE 


DC 




•-• 


0802 


01 


60000BF0 




STX 


LI 


IOLCT SET IDLE CNT 


0804 





6100 




LOX 


1 





0805 





4002 




BSI 




PRCON 


0806 


01 



4CB008D1 
0000 


• 


BSC 


I 


IOLE 




• 






PRINT COMMON 


OB 08 


• 
PRCON 


OC 




•-• 


08 09 


01 


6O000BF0 




STX 


LI 


SCNCT SET SCNCT FOR IOLE 


08 OB 


01 


6E000BFA 


• 
PRC1 


STX 


L2 


EXPCT 


0800 


01 


0C000B1A 


XIO 


L 


SENSE-1 SENSE OSN 


08 OF 


01 


04O00A00 




STO 


L 


OSMH STO IN NSC 


08E1 





1003 




SLA 




3 


08E2 


01 


4C1008E7 




BSC 


L 


PRC2.- BR IF CARG NOT BUSY 


08E4 


01 


44000A92 




BSI 


L 


FRR17 PRINT ERR NSC 


0BE6 





70F6 


• 
PRC2 


NOX 




PRC1 


08E7 


01 


44000B53 


BSI 


L 


FORMS 


0BE9 


01 


6600005E 




LDX 


L2 


APRT 


DATE 




02JAN66 


IN AY 66 


01JUL66 1SN0V66 03APR67 


GC NO. 


415490 


415490B 


415490C 419643 4196430 



30C08190 
3OC08200 
30C08210 
30C08220 
30C08230 
30C08240 
30C08250 
30C08260 
30C08270 
30C08280 
30C08290 
30C08300 
30C08310 
30C08320 
30C0833O 
30C08340 
30C08350 
30C0B360 
30C08370 
30C08380 
30C08390 
30C08400 
30C08410 
30C08420 
30C08430 
30C08440 
30C08450 
30C08460 
30C08470 
30C08480 
30C08490 
30C08500 
30C08510 
30C08520 
30C08530 
30C08540 
30C08550 
30C08560 
30C08570 
30C08580 
30C08590 
30C08600 
30C08610 
30C08620 
30C08630 
30C08640 
30C086S0 
30C08660 
30C08670 
3OC08480 
30C 08690 
30C08700 
30C08710 
30C08720 
30C08730 
30C08740 
30C0B750 
30C08760 
30C08770 
30C08780 
30C08790 
30C0B800 
30008810 
30C08820 
30C08830 
30C08840 
30CO8B50 
30C08860 



PROG 10 
PACE 



SET LAST OP SH 
BUSY DSM S/B 
SAVE BUSY OSU S/B 
START THE PRINTER 
MA 1 7 FOR INTERRUPT 



• SPACE SUBROUTINE 

• 



08EB 01 


6EO0OAO0 


STX 


L2 


OPSM 


08t0 00 


67000200 


LOX 


L3 


/0200 


08EF 01 


6F000B1C 


STX 


L3 


TBOSW 


08F1 01 


0C0009B2 


XIO 


L 


STPRT-1 


08F3 01 


44000AE6 


BSI 


L 


WAIT 


08F5 01 


4C8008D8 


BSC 


I 


PRCON 



08F7 





oooo s 


PACE OC 




*-• 




0SF8 





4041 


BSI 




STOP 


STOP THE PRINTER 


08F9 


01 


C4000AE6 


LO 


L 


UAIT 




08Fe 


01 


4C1 80909 


BSC 


L 


SPC1,*- 


BR ON FIRST SPACE 


O8F0 





6116 


LOX 


1 


/16 


ERROR NUMBER 


08FE 


01 


OCO0OB1A 


XIO 


L 


SENSE-1 


SENSE OSM 


0900 


01 


04000AE4 


STO 


L 


CHMA$*1 




0902 


01 


F4000AE3 


EOR 


L 


CHHAS 


CHECK FOR CHANGE 


0904 





1008 


SLA 




8 


IN CHANNEL BITS 


0905 


01 


44200A8B 


BSI 


L 


ERR16.Z 


ERROR IF CHANGE 


0907 


01 


44000853 

• 
66002000 S 


BSI 


L 


FORMS 




0909 


00 


PCI LOX 


L2 


/2000 




090B 


01 


6F000BFB 


STX 


L2 


EXPCT*! 


SET EXPCT FOR SPACE 


090C 


01 


66000054 


LOX 


L2 


ASPC 




090F 


01 


66000*00 


STX 


L2 


OPSH 


SET LAST OP SM 


0911 


01 


0C000BF4 


XIO 


L 


STSPA-1 


START SPACE 


0913 


01 


C40009B9 


LO 


L 


XI 000 


LO CAARIAGE BUSY BIT 


0915 


01 


44000AE6 

• 
4C8008F7 


BSI 


L 


MA IT 


WAIT FOR INTERRUPT 


0917 


01 


BSC 


I 


SPACE 


RETURN 



ft******************************************* 

• SKIP 

•••••*••**• ft******************* •*•••*•*••••* 



0919 


0000 


091A 


0010 


091B 01 


6EO00BFB 


0910 01 


44000853 


091F 


6210 


0920 


6A18 


0921 01 


C40009B9 


0923 01 


ECOOOBFA 


0925 01 


D4000BFA 


0927 01 


6600005B 


0929 01 


6E000A00 


092B 01 


0C0009B4 


092C 01 


C40009B9 


092F 01 


44000AE6 



SKIP 



0931 4008 

0932 01 OC000B1A 

0934 1003 

0935 01 4C900919 
0937 70FA 



0938 

0939 



0000 
0000 



OC 

STO 

STX 

BSI 

LOX 

STX 

LO 

OR 

STO 

LOX 

STX 

XIO 

LO 

BSI 

BSI 

XIO 
SLA 
BSC 
NOX 



SKPTO OC 
SKCNT DC 



SKP1 



*-• 
SKPTO 
L2 EXPCT*1 
L FORNS 

2 16" 

2 SKCNT 
L K1000 
L EXPCT 
L EXPCT 
L2 ASKP 
L2 OPSM 
L STCAR-1 
L K1000 
L MA IT 

STOP 
L SENSE-1 

3 
I SKIP,- 

SKP1 

' •-• 

*-• 



SET CHANNEL CODE IN SKPTO 
SET FOR SKIP 1NTRPT 



SET FOR MAX OF 16 SKIPS 

SET FOR SKIP MITH 

PRINTER ON 
SET LAST OP SM 

FOR SKIP 
START SKIP 
LO CARRIAGE BUSY BIT 



SENSE OSM 

LOOP HERE 

CARRIAGE 



UNTIL 

BUSY GOES OFF 



SKIP TO CONTROL 
SKIP COUNT 



093 A 0000 
093B 01 OCOOOBEC 
0930 1810 



• STOP THE PRINTER 

STOP DC •-• 

XIO L STPPT-l STOP PRINTER 

SRA 16 



030C-2 
7 



DATE 
EC NO. 



02JAN66 
415490 



01MAV66 
4154908 



01JUL66 
4154900 



15NOV66 
419643 



03APR67 
4196430 



30C08870 

30C03880 

30C08390 

30C08900 

30C08910 

30C08920 

30C08930 

30C08940 

30C08950 

30C08960 

30C08970 

30C08980 

30C08990 

30C09000 

30C09010 

30C09020 

3OC09O30 

30C09040 

30C09050 

3OCO9O60 

30C09070 

30C09080 

30C09090 

30C09100 

30C09110 

30C09120 

30C09130 

30C09140 

30C09150 

3OC09160 

30C09170 

30C09180 

30C09190 

30C09200 

30C09210 

30C09220 

30C09230 

30C09240 

30C09250 

30C09260 

30C09270 

30C09280 

30C09290 

30C09300 

30C09310 

30C09320 

30C09330 

30C09340 

30C09350 

30C09360 

30C09370 

30C09380 

30C09390 

30C09400 

30C09410 

30C09420 

30C09430 

30C09440 

30C09450 

30C09460 

30C09470 

30C09480 

30C09490 

30C09500 

30C09510 

30C09520 

30C09530 

30C09540 
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093E 01 


04000BF4 


STO 


L 


ENTSH 


0940 01 


04000BFA 


STO 


L 


EXPCT 


0942 01 


D4000B1C 


STO 


I 


TBOSN 


0944 01 


4C80093A 


BSC 


I 


STOP 



0946 0000 

0947 01 C400050F 
0949 100D 
094A 01 4C280974 

094C 40ED 



094D 
094E 01 
0950 
0951 
0952 
0953 
0954 
0955 01 
0957 











0958 

0959 
095A 
095B 01 
0950 
095E 
095F 01 
0961 



10A0 

C4800946 

610E 

482 8 

710F 

1001 

0050 

670000AE 

7001 

7301 

C058 
1140 

4C1 80974 
F056 

0053 

C50000CE 

D001 



0962 00 C4000000 

0964 F052 

0965 01 4C1 80958 

0967 F04F 

0968 18CB 

0969 1008 
096A 0300 

0968 1090 
096C 01 4C180970 
096E 7301 
096F 0300 

0970 7301 

09 71 01 74010963 
09 73 70EE 

0974 6131 

09 75 00 66008200 

0977 6310 

09 78 01 6FO00BF0 

09 7A 01 6C0009B8 

09 7C 01 44000808 

097E 01 74010946 
0980 01 4C800946 



0982 0000 



• PRINT 1132 



RESET 1ST EMIT SM 



RETURN 

MESSAGE SUBROUTINE 



PMSG 



PMSl 



PMS2 



PNS3 



PMS4 



PNS5 



DC 
10 
SLA 
BSC 

asi 

SIT 
LO 

LOX 
BSC 
MDX 
SLA 
STO 
LOX 
MOX 

NOX 

LO 

SLCA 

BSC 

EOR 

STO 

LO 

STO 

LD 

EOR 

BSC 

EOR 
RTE 
SLA 
STO 

SLT 

BSC 
NOX 
STO 

NOX 

MOX 
NOX 

LOX 
LOX 
LOX 
STX 
STX 
BSI 

MOX 
BSC 



*-* 
L SHO 

13 
L PMS4,«Z 

STOP 

32 

I PMSG 

1 14 

42 

1 IS 

1 

SAVE 
L3 BUF 
PMS1+1 

3 1 

SAVE 
1 
L PNS4 t *- 
K8000 
SAVE 
LI PNTAB 
•♦I 

L •-• 

TERN 
L PNSi,*- 

TERN 
8 
8 
3 

16 
L PMS3,«~ 
3 1 
3 

3 1 
L PMS2*1.1 
PMS2 



1 49 
L2 /8200 
3 16 

L3 I0LCT 
L MSGSM 
L PRCON 



PMSG.l 
PMSG 



00 NOT PRINT IF 
BYPASS MESSAGE SWITCH 
IS ON 



LO MESSAGE CONTROL 
CK FOR EXTENDED TABLE 

XR3-BUFFER ADDRS 



PUT SPACE IN NSG 
LO MESSAGE CONTROL 1 
SCAN CONTROL 
BR IF CONTROL ZERO 

SAVE CONTROL FOR NXT SCAN 
LD MSG ADORS 



LO MSG CHAR 

CK FOR TERMINATOR 

BR IF TERN 

RESTORE CHAR 
SHIFT OUT 2N0 CHAR 

STO CHAR IN BUF 

BRING IN 2 NO CHAR 
BR IF ZERO 
AOV BUF ADORS 
STO CHAR IN BUF 



AOV NSG ADORS 



LO SCAN CNT 

LO EXPECTED INTRPT DSM 

SET FOR 16 IOLES 

BEFORE SPACE 
SET MSG SM 
GO PRINT MSG 



RETURN 



•#*•••»»••»*«»»•••*»»**»»•»*••»♦»»»##»♦»»*#• 

* RIPPLE PATTERN SUBROUTINE 

•••••••ft************************************ 

• 

R IPL DC »-• 



3OC0955O 
30C09560 
30C09570 
30C09580 
30C09590 
30C09600 
30C09610 
30C 09620 
30C09630 
30C 09640 
30C09650 
30C09660 
30C09670 
30C09680 
30C09690 
30C09700 
30C09710 
30C09720 
30C09730 
30C09740 
30C09750 
30C09760 
30C09770 
30C09780 
30C 09790 
30C09800 
30C09810 
30C09820 
30C09830 
30C09840 
30C09850 
30C09860 
30C09870 
30C09680 
30C09890 
30C09900 
30C09910 
30C09920 
30C09930 
30C09940 
30C09950 
30C09960 
30C09970 
30C09980 
30C 09990 
30C10000 
30C10010 
30C 10020 
30C1OO3O 
30C 10040 
30CI0050 
30C 10060 
30C10070 
30C 10080 
30C10090 
30C10100 
30C10110 
30C10120 
30C10130 
30C10140 
30C10150 
30C 10160 
30C1017O 
30CI01B0 
30C10190 
30C10200 
. 30C10210 
30C10220 



0983 6132 

09 84 01 600006C8 

09 86 00 6 6008200 

0988 6101 

09 8 9 01 440008D1 

09 8 B 00 67000000 
09 80 01 C7000CEB 
09 8 F 01 94000COA 
0991 01 4C18099B 
0993 01 74FF0B1A 

0995 70E0 

0996 01 74FF06C8 

0998 70E0 

0999 1810 
099* 7001 



RIPL1 LOX 
STX 



1 50 
LI LPCNT 



SET ENIT LOOP CNT 



0998 
099C 
0990 
099E 
099F 
O9A0 
09A1 
09A2 
09A3 
09A4 

09A5 01 
09A7 01 
09A9 01 
09AB C 
09 AC 00 
09AE 01 
09 BO 01 



09B2 
0982 
0983 
09B4 
09B5 
0986 
0987 
0988 
09B9 



C018 
61F0 
62F8 
7301 
7005 
63CE 
6BEA 
1801 
7101 
7302 

6F000BEC 

6D000BD0 

6E00OBO2 

6176 

04000020 

440008C6 

4C8009B2 

0000 
0000 
3480 
8000 
3404 
FFFF 
FFFF 
0000 
1000 



098* 
0988 
09 BC 
0980 01 
09BF 00 
09C1 
09C2 
09C3 
09C4 00 
09C6 01 
09C8 
09C9 01 
09C8 










O 




0000 

63F8 

10AO 

D4O00C03 

OFO00028 

7302 

70FC 

6301 

6F000027 

D4O009B8 

63E0 

070000CE 

7301 



RIPL2 LOSt L2 /8200 

LOX 1 1 

BSI L IOLE 
» 

RIPL3 LUX L3 •-* 

LO L3 CHAR*49 

S L EMIT 

BSC L RIPL4,«- 

V.OX L ICNT.-l 

MOX RIPL1 
* 

NOX L LPCNT, -I 

MDX RIPL2 

SRA 16 

MOX RIPL4+1 
• 

RIPL4 LO K8000 

LOX 1 -16 

LDX 2 -8 

MOX 3 1 

MOX RIPL5 

LOX 3 -50 

STX 3 RIPL3U 

SRA 1 

MOX 1 1 

MDX 3 2 

RIPL5 STX L3 BLANK 

STX LI PI5*1 

STX L2 PI6»1 

LOX 1 118 

STO L 32 

BSI L PRINT 

BSC I RIPL 

BSS E 

SAVE OC *-* 

STPRT OC /3480 

K8000 DC /8000 

STCAR OC /3404 

ONES OC /FFFF 

TERN OC /FFFF 

NSGSN OC *-* 

K1000 CC /1000 
• 

* CLEAR BUFFER SUBROUTINE 

* THIS SUBROUTINE CLEARS 32-39 AND 

* SETS BIT 15* LOC 39. 

* __ 

* 



SET DSM S/B 
SET IDLE CNT 



COMPARE START SCAN 
CHAR WITH LAST 
EMIT CHAR 
LOOP IF NOT EQUAL 
SKIP IF INTRPT CNT-1 



IF AFTER 50 CONSECUTIVE 
EMITS A MATCH IS NOT 
FOUND. LEAVE SPACE 
THEN CONTINUE 

SET BUFFER WITH FIRST BIT 
SET SHIFT REGISTER 
SET STORAGE REGISTER 



RESET EMIT CHAR CNT 
SHIFT LAST LINE 
IN PATTERN 



SET FOR PATTERN SPACE 



SET SCAN COUNT 
SET 1ST BUFR WORD 
GO PRINT 



START PRINTER 
START CARRIAGE 



PRINTER MSG SW 



CLEAR DC 
LOX 
SLT 
STO 

CLIO STO 
MDX 
MOX 
LDX 
STX 
STO 
LOX 

CL20 STO 
MOX 




3-8 

32 
L SPCSX 
L3 40 

3 2 
CLIO 

3 1 
L3 39 
L MS6SH 

3 -32 
L3 BUF*32 

3 1 



PRINT AREA 



CLEAR SPACE SM 



SET SCAN COMP BIT 



RESET MSG SM 



30C10230 
30C10240 
30C10250 
30C10260 
30C 10270 
30C1028O 
30C 10290 
3OC10300 
30C10310 
30C10320 
30C 10330 
30C10340 
3OC10350 
30C10360 
30C10370 
30C10380 
30C 10390 
30C10400 
30C10410 
30C10420 
30C10430 
30C 10440 
30C10450 
30C 10460 
30C10470 
30C 10480 
30C 10490 
30C10500 
30C10510 
30C10S20 
30C10530 
30C 10540 
30C10550 
30C 10560 
30C 10570 
30C 10560 
30C10590 
30C10600 
30C10610 
30C10620 
30C10630 
30C 10640 
30C 10650 
30C 10660 
30C10670 
30C10680 
30C10690 
30C10700 
30C10710 
3OC10720 
30C 10730 
30C 10740 
3OC10750 
30C10760 
30C10770 
30C10780 
3 OC 10790 
30C 10800 
3OC1081O 
30C10820 
30C10S30 
30C10840 
30C 10850 
30C 10860 
3OC10870 
30C10380 
30C 10890 
30C10900 



DATE 
EC NO. 



02JAN66 
415490 



IN AY 66 
4154908 



01 JUL 66 
41S490C 



15N0V66 
419643 



3APR67 
4196430 



PROG 10 
PAGE 
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03APR67 
4196430 
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09CC TOFC 


NDX 


CL20 


09CD 01 4C8009BA 


BSC 


I CLEM 



09CF 
0900 01 
0902 
09D3 
0904 01 
0906 00 
09 D8 
09D9 
090A 01 
090C 
0900 01 
090F 01 
09E1 
09E2 
09E4 
09ES 01 
09E7 01 
09E9 
09EA 
09EB 
09EC 











00 












O9E0 
09EE 



09EF 
09F0 01 
09F2 00 
09F4 
09FS 01 
09F7 01 



0000 

C4000B1A 

001 A 

63FB 

CC0009B6 

DF000028 

7302 

70FC 

C4000B1A 

F010 

4C2009E1 

4C8009CF 

4O0« 

66008200 

6101 

44000801 

C4000COA 

F004 

4820 

70F6 

70E3 

0000 
0000 



0000 

C400050F 

EC800166 

100A 

4C9009EF 

4C800ACB 



09F9 0000 
09FA 6101 
09FB 6260 
09FC 01 CCO00A9A 
09FE 01 44000ABA 
OAOO 01 4CB009F9 

0A02 0000 
0A03 6102 
0*04 00 66000180 
0A06 01 CCO00A9C 
0A08 01 44O00ABA 
OAOA 01 4C800A02 

OAOC 6103 
OAOD 6220 
OAOE 01 CCOOOASE 

OA10 01 74000BFB 
0A12 7003 
0A13 01 74O00B1A 



* SET PRINT BUFFER TO ONES 

• 

Al DC 

LO L ICNT 

STO A1SH 

LOX 3 -8 

LOO L ONES 

A110 STO L3 40 

NDX 3 2 

MOX At 10 

LO L ICNT 

EOR A1SM 

BSC L A120.Z 

BSC I Al 
A 120 BSI CLEAR 

A 130 LOX L2 /B200 

LOX 1 1 

BSI L IOLE 

LO L EMIT 

EOR A1EM 

BSC I 

NOX A130 

MDX Al*l 

A ISM OC *-• 

AlEM DC •-• 

• 

* LOCK ON FUNCTION ROUTINE 



SET PRINT 

AREA TO ALL ONES 



BR IF INT OCCURRED 

LEAVE 

CLEAR BUFFER 



SKIP IF PROPER EMIT 
LOOP IF NOT 
REPEAT LINE 

INT COUNT SM 
EMIT SAVE 



LOCK 



DC 

LO 

OR 

SLA 

BSC 

BSC 



*~* 

SHO 

ERLCK 

10 

LOCK,- 

LOOP 



LO SHO 

COMB WITH MONITOR SMO 

CK LOCK ON FNC SW 

BR IF NOT LOCK ON FNC 

LOOP ON LAST FUNCTION 



• ERROR MESSAGE SETUP 



ERR1 



• 
ERR2 



* 
ERR3 



OC 

LOX 

LOX 

LOO 

BSI 

BSC 

DC 

LDX 

LOX 

LOO 

BSI 

BSC 

LDX 
LDX 
LDO 



1 
2 

L 
L 
I 



•-• 

1 

/0060 

NSG1 

ETYPE 

ERR1 



*-• 
1 2 
L2 /0180 
L MSG2 
L ETYPE 
I ERR2 



3 

/0020 
NSG3 



MOX L EXPCT*1 
MOX ERR3X 

NOX L ICNT 



STATIC OSH ERR 
SET MSG NO. 
SET DATA CONTROL 
LO ALPHA MSG 
GO PRINT NSG 
RETURN 

BUSY OSH ERR 
SET MSG NO. 
SET DATA CONTROL 
LO ALPHA NSG 
GO PRINT NSG 
RETURN 

NO INTRPT 

SET OATA CONTROL 

LO ALPHA NSG 

CK FOR EXPCT SPACE/SKIP 
BR IF SPACE/SKIP 
CK FOR SOME INTRPTS 



DATE 
EC NO. 



02JAN66 
415490 



IN AY 66 
4154906 



01JUL66 
415490C 



15N0V66 
419643 



03APR67 
4196430 



30C10910 

30C 10920 

30C 10930 

30C 10940 

30C 10950 

30C 10960 

30C10970 

30C10980 

30C 10990 

30C 11000 

30C11010 

30C 11020 

30C11030 

30C11040 

30C110S0 

30C11060 

30C 11070 

30C 11080 

30C 11090 

30C11100 

30C11110 

30C11120 

30C11130 

30C11140 

30C11150 

30C11160 

30C11170 

30C11180 

30C 11190 

30C11200 

30C11210 

30C 11220 

30 CI 1230 

30CU240 

30CU250 

30 CI 1260 

30C1127O 

30C11280 

30C 11290 

30C11300 

30C11310 

30C11320 

30C11330 

30C11340 

3OC11350 

30C 11360 

30C11370 

30C11380 

30C 11390 

30C 11400 

30C11410 

30C11420 

30 CI 1430 

30C 11440 

30CU450 

30C 11460 

30C 11470 

30C 11480 

3 OC 11490 

30C 11500 

30C1151O 

30C11520 

30C11530 

30C 11540 

30C11550 

30C11560 

30C11570 

30C 11580 



PROG ID 
PAGE 



030C-2 

9 



0*15 7004 




NOX 


ERR4 


BR IF SOME 


30C 11590 




0A16 01 44000ABA 


• 

ERR3X BSI 


L ETYPE 


GO PRINT NSG 


30C11600 
30C11610 




0A18 01 4C800AE6 




BSC 


I WAIT 


RETURN 


30C 11620 




0A1A 6104 


• 
ERR4 


LOX 


1 4 


PRINTER STOPPED 


30C11630 
30C 11640 




0A1B 01 CCOOOAAO 




LOO 


L NSG4 


LO ALPHA NSG 


30C 11650 




0A10 70F8 


• 


MOX 


ERR3X 




30C 11660 
30C1167C 




OAIE 0000 


ERRS 


DC 


•-• 


LEVEL 1 OSH ERR 


30C 11680 




0A1F 6105 




LOX 


1 5 


SET NSG NO. 


30C11690 




0A20 00 66000600 




LOX 


L2 /0600 


SET OATA CONTROL 


30C11700 




0*22 C87F 




LOO 


MSG5 


LO ALPHA MSG 


30C11710 




0A23 01 44000ABA 




BSI 


L ETYPE 


GO PRINT MSG 


30C11720 




0A2 5 01 74FF0B1A 


• 


MOX 


L ICNT.-l 


CK FOR MULT INTRPTS 


30C11730 
30C 11740 




0A27 7001 




MOX 


*♦! 




30C11750 




0A28 700 A 


• 


NOX 


ERR5X 




30C11760 
30C11770 




0A29 01 C 40008 ID 




LO 


L EBITS 


LD OSH ERROR BITS 


30C11780 




0A2B 01 4C28CA4C 




BSC 


L ERR9.+Z 


BR IF PRINT RESPONSE ON 


30C1179O 




OA20 1001 




SLA 


1 




30C 11800 




0A2E 01 4C280A56 




BSC 


L ERRU.*2 


BR IF SKIP RESPONSE ON 


30C 11810 




OA30 1001 




SLA 


1 




30C11820 




0A31 01 4C280AS1 


• 


BSC 


L ERR10,*Z 


BR IF SPACE RESPONSE ON 


30C11830 
30C 11840 




0A33 01 4C800A1E 


ERR5X 

• 


BSC 


I ERR5 


RETURN 


30C11850 
30C11860 




0A35 0000 


ERR6 


OC 


•-* 


ENIT BIT FAILURE 


30C 11870 




0A36 6106 




LOX 


1 6 


SET MSG NO. 


30C 11880 




OA37 6203 




LOX 


2 /0003 


SET OATA CONTROL 


30C 11890 




0A38 C86B 




LOO 


HSG6 


LD ALPHA NSG 


30C 11900 




0A39 01 44000ABA 




BSI 


L ETYPE 


GO PRINT NSG 


30C 11910 




0A3B 01 4C800A35 


• 


BSC 


I ERR6 


RETURN 


30C11920 
30C11930 




OA30 0000 


ERR7 


OC 


*-• 


ENIT INVALID 


30C 11940 




0A3E 6107 




LOX 


1 7 


SET NSG NO. 


30C 11950 




0A3F 6208 




LDX 


2 /0008 


SET OATA CONTROL 


30C 11960 




0A40 C86S 




LOO 


NSG7 


LO ALPHA NSG 


30C 11970 




0A41 01 44000ABA 




BSI 


L ETYPE 


GO PRINT NSC 


30C 11980 




0A43 01 4C800A30 


• 


BSC 


I ERR7 


RETURN 


30C 11990 
30C 12000 




OA45 0000 


ERR8 


OC 


*-• 


ENIT SEQ ERR 


30C 12010 




0A46 6108 




LOX 


1 8 


SET MSG NO. 


30C12020 




0A47 6218 




LDX 


2 /0016 


SET DATA CONTROL 


30C12030 




0A48 C85F 




LOO 


NSG8 


LO ALPHA NSC 


30C1204O 




0A49 4070 




BSI 


ETYPE 


GO PRINT MSG 


30C12050 




0A4A 01 4C800A45 


* 


BSC 


I ERRS 


RETURN 


3 OC 12060 
30C12070 




0A4C 6109 


ERR9 


LOX 


1 9 


PRINTER 010 NOT TURN OFF 


30C 12080 




0A40 6200 




LOX 


2 


SET FOR NO OATA 


30C 12090 




0A4E C85B 




LOO 


MSG9 


LD ALPHA MS6 


30C12100 




0A4F 406A 




BSI 


ETYPE 


GO PRINT NSG 


30C12110 




OA50 70E2 


• 


NOX 


ERR5X 




30C12120 
30C12130 




0A51 6110 


ERR 10 


LOX 


1 /10 


MULT SPACE INTRPTS 


30C121*0 




0A52 6200 




LOX 


2 


SET FOR NO OATA 


30C12150 




OA53 CB58 




LOO 


MSG10 


LD ALPHA NSG 


30C12160 




0A54 4065 




BSI 


ETYPE 


GO PRINT MSG 


30C12170 




0*55 7000 


• 


NOX 


ERR5X 




30C12180 
30C12190 




0A56 6111 


ERR11 


LOX 


1 /ll 


MULT SKIP INTRPTS 


30C 12200 




0A57 6200 




LDX 


2 


SET FOR NO OATA 


30C12210 




0A58 C855 




LDO 


NSG11 


LO ALPHA MSG 


30C 12220 




0AS9 4060 




BSI 


ETYPE 


GO PRINT NS6 


30C12230 




0A5A 7008 


• 


NOX 


ERR5X 




30C12240 
30C12250 




0A5B 0000 


ERR 12 


DC 


•-• 


MISSING CHANNEL 


30C12260 




DATE 02 JAN 66 
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0A5C 01 


C5000A64 




10 


LI 


CHNUM-: 


I LD CHANNEL NO. 


30C 12270 


0A5E 


007B 




STO 




CHANL 


SET IN NSC 


30C12280 


0A5F 


6112 




LDX 


1 


/12 


SET MSG NO. 


30C12290 


0A60 


6204 




LOX 


2 


/0004 


SET DATA CONTROL 


30C12300 


0A61 


C84E 




LOO 




MSG12 


LD ALPHA MSG 


30C 12310 


0A62 


4057 




BSI 




ETVPE 


GO PRINT MSG 


30C12320 


0A63 01 


4C800A5B 


• 


BSC 


I 


ERR12 


RETURN 


30C12330 
30C12340 


0A65 


0001 


CHNUM 


DC 




1 




30C12350 


0A66 


0002 




DC 




2 




30C12360 


0A67 


0003 




DC 




3 




30C12370 


0A68 


0004 




DC 




4 




30C12380 


0A69 


0005 




DC 




5 




30C12390 


0A6A 


0006 




DC 




6 




30C12400 


0A6B 


0009 




DC 




9 




30C12410 


0A6C 


OOOC 


• 


DC 




12 




30C12420 
30C 12430 


0A6D 


0000 


ERR 13 


DC 




*-• 


CHANNEL SEQ ERR 


30C12440 


0A6E 


6113 




LOX 


1 


/IS 


SET MSG NO. 


30C 12450 


0A6F 


6200 




LOX 


2 





SET DATA CONTROL 


30C 12460 


0A70 


C841 




LOO 




NSG13 


LO ALPHA MSG 


30C12470 


0A71 


4048 




BSI 




ETYPE 


GO PRINT MSG 


30C 12480 


OA72 01 


C 4000986 




LO 


L 


ONES 




30C12490 


0A74 01 


4C800A60 


* 


BSC 


I 


ERR13 


RETURN 


30C12500 
30C12510 


OA76 


6114 


ERR14 


LOX 


1 


/14 


MULT CHANNEL BITS 


30C 12520 


OA77 


6220 




LOX 


2 


/0020 




30C12530 


0A78 01 


C40007C9 




LO 


L 


TEHP8*l LO INVALID CHANNEL CODE 


30C12540 


0A7A 


180B 




SRA 




8 




30C12550 


OA78 


006 1 




STO 




DSHM 




30C12560 


0A7C 


C837 




LOD 




NSG14 


LD ALPHA MSG 


30C 12570 


OA70 


403C 




BSI 




ETYPE 


GO PRINT MSG 


30C12580 


0A7E 01 


4C0007EB 


• 


BSC 


L 


CHM2 


RETURN 


30C12590 
30C12600 


OA80 


0000 


ERR IS 


DC 




•-• 


CHANNEL SENSE ERR 


30C12610 


OA81 00 


66000801 




LOX 


L2 


/oeoi 


SET DATA CONTROL 


30C12620 


OA83 01 


C4000BEE 




LO 


L 


MAS 


LO INTRPT OSM 


30C12630 


0*85 


EOSF 




AND 




K00FF 


MASK ALL BUT CHAN B17S 


30C 12640 


0A86 


0051 




STO 




ERN4 


STO IN MSG 


30C 12650 


OA87 


C82E 




LOD 




NSG1S 


LO ALPHA MSG 


30C12660 


0A88 


4031 




BSI 




ETVPE 


GO PRINT MSG 


30C 12670 


OA89 01 


4C800A80 




BSC 


I 


ERR15 


RETURN 


30C 12680 


0A8B 


0000 


ERR16 


OC 




•-• 




30C 12690 


0A8C 00 


66001800 




LOX 


L2 


/1 800 




30C 12700 


0A8E 


C827 




LOO 




NSG19 




30C1271O 


0A8F 


402A 




BSI 




ETYPE 




30C1272O 


0A90 01 


4C800A8B 


• 


BSC 


I 


ERR16 




30C 12730 
30C 12740 


OA92 


0000 


ERR17 


OC 




•-• 




30C1275O 


0A93 


6117 




LDX 


1 


/IT 




30C 12760 


0*94 


6220 




LDX 


2 


/0020 




3OC12770 


0A9S 


C822 




LOO 




MSG17 




30C 12780 


0A96 


W23 




BSI 




ETYPE 




30 CI 2790 


0A97 01 


4C800A92 


• 


BSC 


I 


ERR IT 




30C 12800 
30C12810 


0A9A 


0000 




BSS 


E 







30C 12820 


0A9A 1 


OCEB 


NSC1 


OC 




ANAS 


MAS S/B 


30C12830 


0A9B 1 


0CF1 




DC 




ASOSM 


STATIC DSM 


30C1284O 


0A9C 1 


OCEB 


NSG2 


DC 




AMAS 


MAS S/B 


30C1285O 


0A9D 1 


OCFA 




OC 




ABOSM 


BUSY DSM ERR 


30C12860 


0A9E 1 


OOOA 


MSG3 


OC 




AOSH 


OSM 


30C12870 


0A9F 1 


ODOD 




OC 




ANINT 


NO INTRPT 


30C128S0 


OAAO 1 


0014 


MSG4 


OC 




ADPA 


DSM PRINTER 


30C 12890 


0AA1 1 


ooia 




OC 




ASTPD 


STOPPED 


30C 12900 


0AA2 1 


OCEB 


MSG5 


OC 




AMAS 


MAS S/B 


30C12910 


0AA3 1 


0002 




DC 




A0SM1 


LEVI OSM ERR 


30C 12920 


0AA4 1 


0029 


NSG6 


OC 




AEBF 


EMM BIT FAILURE 


30C12930 


0AA5 


0000 




OC 




/OOOO 




30C 12940 


DATE 


02JAN66 


01MAV66 


01 JUL 66 


15N0V66 3APR67 
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0AA6 1 


0038 


MSG 7 


DC 




AENT 


EMIT INVALO 


30C 12950 




0AA7 


0000 




DC 




/OOOO 




30C 12960 




0AA8 1 


OCEB 


NSG8 


OC 




AMAS 


MAS S/B 


30C12970 




0AA9 1 


003F 




OC 




AESER 


EMIT SEQ ERR 


30C 12980 




OAAA 1 


0D17 


MSG 9 


OC 




APRTR 


PRINTER 


30C12990 




OAAB 1 


0020 




OC 




ADNTO 


010 NOT TURN OFF 


30C 13000 




OAAC 1 


0051 


NSG10 


OC 




ANSP 


MULT SPACE 


30C13OIO 




OAAC 1 


0010 




DC 




AINT 


INTRPT 


30C13020 




OAAE 1 


0058 


MSG11 


DC 




AMSK 


MULT SKIP 


30C 13030 




OAAF 1 


0010 




OC 




AINT 


INTRPT 


30C 13040 




OABO 1 


0048 


MSG 12 


OC 




AMC 


MISSING CHANNEL 


30C13050 




0AB1 


0000 




OC 




/OOOO 




30C 13060 




0AB2 1 


004C 


MSG 13 


DC 




ACHAN 


CHANNEL 


30C13O70 




0AB3 1 


0043 




OC 




ASER 


SEQ ERR 


30C13080 




0AB4 1 


0071 


MSG14 


OC 




AINVC 


INVALO CHANNEL CODE 


30C 13090 




0AB5 


0000 




OC 




/OOOO 




30C13100 




0AB6 1 


0D4C 


HSG15 


DC 




ACHAN 


CHANNEL 


30C13110 




0A87 1 


0D6B 




OC 




ASNER 


SENSE ERR 


30C13120 




0AB8 1 


OOOA 


MSG17 


OC 




AOSM 




30C13130 




0AB9 1 


00A6 


• 


DC 




ACBSV 




30C13140 
30C13150 








«#*♦«.•*•*♦*»*•••*»•**•***•*»*•••♦*•*•***»»•* 


30C13160 








' • 






PRINT 


ERROR MESSAGES 


30C13170 








•**•••••**•*••*•••***••••*••*••*••••••*•••** 


30C13180 








• 










30C13190 




OABA 


0000 


ETVPE 


DC 




*-* 




30C 13200 




OABB 


6917 




STX 


1 


TABLE 


SET 10 IN MESSAGE TABLE 


30C13210 




OABC 


6A18 




STX 


2 


TABLE *2 STO OATA WORD CNTRL 


30C13220 




OABO 


081B 




STO 




ALPHA 




30C13230 




OABE 01 


4400093A 


• 


BSI 


L 


STOP 


STOP THE PRINTER 


30C 13240 
30C13250 




OACO 01 


74000AC6 




MOX 


L 


OPNSM 




30C 13260 




0AC2 


7005 




MOX 




ETVP1 




30C13270 




0AC3 00 


44800162 




BSI 


I 


ERROR 


PRINT LAST OP 


30C13280 




0AC5 1 


OACC 




DC 




ETVP2 




30C 13290 




0AC6 


0000 


OPM SH 


DC 




*-* 


MUST BE ZERO FOR OP MSG 


30C 13300 




0AC7 


68FE 


• 


STX 




OPNSM 




30C13310 
30C 13320 




OACB 00 


44600162 


ETVP1 


BSI 


I 


ERROR 




30C13330 




OACA 1 


0AO3 




DC 




TABLE 




30C13340 




OACB 


0000 


LOOP 

• 


OC 







LOOP ON ERROR 


30C13350 
30C 13360 




OACC 01 


4C800ABA 


ETVP2 


BSC 


I 


ETVPE 


RETURN 


30C13370 




OACE 


8000 




OC 




/8000 




30C13380 




OACF 1 


007F 




OC 




ALOP 




30C13390 




OAOO 


0000 


OPSM 

• 


OC 




*-• 




30C13400 
30C13410 
30C13420 
30C13430 






• ERROR MESSAGE TABLE 


















30C 13440 
30C 13450 






* 












0A02 


0001 




BSS 


E 


1 




30C 13460 




0A03 


0000 


TABLE 


OC 




*-• 


MESSAGE NUMBER 


30C13470 




0A04 


0004 




DC 




/0004 


HEX/OECIMAL SM 


30C13480 




0A05 


0000 




DC 




*-• 


DATA MORD 10 


30C 13490 




0A06 


0000 


ALPHA 


i OC 




*•>* 


1ST ALPHA MESSAGE ADDRESS 


30C 13500 




0AD7 


0000 


ERM3 

* 


DC 




*-• 


2N0 ALPHA MESSAGE ADDRESS 


30C13510 
30C13520 




0AO6 


0000 


ERM4 


DC 




*-• 


MODIFIERS 


30C13530 




0A09 


0000 




OC 




•-• 




30C13540 




OAOA 


0000 


CHANL 


DC 




•-• 


STORE ERR CHANNEL 


30C13550 




OAOB 


0000 


EHTMS 


, OC 




*~* 


STORE EMIT MAS 


30C13S60 




OADC 


oooo 


EMTSB 


l DC 




•-* 


STORE EMIT S/B 


30C 13570 




OAOO 


0000 


DSMM 


DC 




*-• 


STORE OSM HAS 


30C13580 




OAOE 


0000 


DSM SB 


l DC 




/OOOO 


STORE DSM S/B 


30C 13590 




OAOF 


0000 


BDSM 


DC 




•-» 


BUSY DSM MAS 


30C 13600 




OAEO 


0000 




DC 




♦-• 


BUSY OSM S/B 


30C13610 




0AE1 


0000 


I DSM 


DC 




*-• 


INTRPT DSM MAS 


30C13620 




OATE 


02JAN66 


01MAY66 


0UUL66 


15N0V66 03APR67 


PROG ID 


030C-2 


EC NO. 


415490 


4 154906 


415490C 
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PAGE 


10A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 



PART NO. 
PAGE 



2191220 
11 



1132 PRINTER FUNCTION TEST 



0AE2 


0000 




OC 




*-• 


INTRPT OSM S/B 


30C 13630 


0AE3 


0000 


CHMAS 


OC 




•-• 


CHANNEL OSM MAS 


30C13640 


0AE4 


0000 




OC 




•-• 




30C13650 


OAES 


OOFF 


KOOFF 

• 


OC 




/OOFF 




30C 13660 
30C 13670 






***••**•*••*•*••«•••*•*•••#*••* ••*•»#••••*•• 


30C13680 






• 






INTERRUPT 


WAIT ROUTINE 


30C 13690 






•••**••*••* ft******************* **••••*•••••• 


30C 13700 






• 










30C13710 


0AE6 


0000 


WAIT 


OC 




•-• 




30C 13720 


OAE? 


683* 




OR 




TBOSM 


BUILO BUSY OSM S/B 


30C13730 


0AE8 


00F7 




STO 




BDSM+1 


SET IN S/B 


30C 13740 


0AE9 01 


C4000C03 




LO 


L 


SPCSX 


SET SPACE COUNT 


30C 13750 


OAEB 01 


D4000C02 




STO 


L 


SPCSM 




30C 13760 


OAEO 


0B2C 




XIO 




SENSE-1 


SENSE BUSY OSM 


30C13770 


OAEE 01 


E4000COO 




AND 


L 


K7F00 




30C13780 


OAFO 


00 EE 


• 


STO 




BOSM 


SAVE BUSY OSM 


30C 13790 

30C13800 


0AF1 


1010 




SLA 




16 




30C13810 . 


0AF2 


0003 




STO 




OPMSM 




30C 13820 


0AF3 


0026 




STO 




ICNT 


RESET ICNT 


30C13830 


0AF4 


0028 




STO 




EBITS 


RESET EBITS 


30C13840 


OAF 5 01 


D4000C07 




STO 


L 


CKESM 


RESET CKESM 


30C13850 


0AF7 01 


04000C03 


• 


STO 


L 


SPCSX 




30C13860 
30C13870 


0AF9 00 


65001000 




LOX 


LI 


/10OO 


SET INTERRUPT 


30C 13880 


OAFB 


6922 


• 


STX 


1 


MCNT 


MAIT CNT 


30C13890 
30C13900 


OAFC 01 


65O00B0S 


HAITI 


LOX 


LI 


MAIT3 




30C13910 


OAFE 01 


740005E6 




MOX 


L 


MLSCFU 


CR FOR INTERRUPT 


30C 13920 


0800 


700F 


• 


MOX 




MAIT4 


BR IF INTERRUPT OCCUREO 


30C13930 
30C13940 


0B01 01 


600005E5 


HAIT2 


STX 


LI 


NLSCF 


SET RETURN ADDRESS 


30C13950 


OB 03 00 


44800161 


• 


BSI 


1 


START 


GO TO MONITOR 


30C13960 
30C13970 


0605 01 


74FF0B1E 


MAIT3 


MOX 


L 


MCNT.-l 


DECREMENT MAIT CNT 


30C 13980 


0B07 


70F4 


• 


MOX 




HAITI 




30C 13990 
30C14000 


0B08 


0811 




XIO 




SENSE-1 


SENSE NO INTRPT OSM 


30C14010 


0B09 


0003 




STO 




OSMM 


SET IN MSG 


30C 14020 


OBOA 


COOS 




LO 




B0SM*1 


LD BUSY DSM S/B 


30C14030 


OBOB 


F0D3 




EOR 




BOSH 


COMPARE MITH BUSY OSM 


30C 14040 


OBOC 01 


44200A02 


• 


BSI 


L 


ERR2.Z 


BR IF BUSY DSM ERR 


30C 14050 
30C 14060 


OBOE 01 


4C000A0C 


• 


8SC 


L 


ERR3 


GO PRINT NO INTRPT NSC 


3 OC 14070 
30C 14080 


OB 10 01 


C4O005E0 


MAIT4 L 


L 


SMI 




30C 14090 


OB 12 00 


44880161 




BSI 


I 


START,* 


CK FOR RTN SELECT 


30C14100 


08 14 01 


94000500 




S 


L 


RIO 


CK FOR NEM ROUTIME 


3QCHM/0 


0B16 00 


44980161 




BSI 


I 


START ,<- 


BR IF NOT NEM RTN 


30C 14120 


0B18 01 


44000600 


• 


BSI 


L 


CNTRL 




30C14130 
30C <4140 


061A 


0000 




BSS 


E 






30C14150 


0B1A 


0000 


ICNT 


DC 




*-• 




30C14160 


0B1B 


3700 


SENSE 


OC 




/3700 


SENSE WITHOUT RESET 


30C14170 


0B1C 


0000 


TBOSM OC 




•-• 




30C14180 


OB 10 


0000 


EBITS 


OC 




•-• 


INT DSM ER BITS 


30C 14190 


0B1E 


0000 


MCNT 

• 


OC 




•-• 




30C 14200 
30C 14210 
30C 14220 




















• ENTER HERE 


AFTER INTERRUPT 


30C14230 
30C 14240 




















• 










30C14250 


0B1F 


COCO 


RTRN 


LO 




BDSM»1 


LD BUSY OSM S/B 


30C 14260 


0B20 


FOBE 




EOR 




BOSH 


COMPARE WITH BUSY OSH 


30C 14270 


0B21 01 


44200A02 


• 


BSI 


L 


ERR2.Z 


BR IF BUSY OSH ERR 


30C 14280 
30C 14290 


0823 


C0F9 




LO 




EBITS 


CK FOR INTRPT OSM ER 


30C14300 


OATE 


02JAN66 


IN AY 66 


01JUL66 15N0V66 03APR67 


PROG ID 030C-2 


EC NO. 


415490 


41S490B 


415490C 419643 4196430 
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OB 24 


01 


44200A1E 


• 


BSI 


L 


ERR5.Z 




30C14310 
30C14320 




0826 


01 


C4000C07 




LO 


L 


CKESM 




30C14330 




0B2S 





0001 




STO 




♦♦I 




30C14340 




0B29 


00 


44200000 


• 


BSI 


L 


•-•,2 


BR IF EMIT ERR 


30C 14350 
30C14360 




0B2B 





08EE 




XIO 




SENSE-1 




30C14370 




0B2C 





E0B8 




AND 




KOOFF 


MASK ALL BUT CHAN BITS 


30C 14380 




0B20 





DOB 5 




STO 




CHUAS 


STO IN ERR MSG 


30C14390 




0B2E 


01 


F4000BEE 




EOR 


L 


MAS 


COMPARE MITH INTRPT OSH 


30C 14400 




0B30 





1002 




SLA 




2 




30C14410 




0631 


01 


4C100B37 


• 


BSC 


L 


RTRNl ,- 


BR UNLESS AFTER SPACE 


30C 14420 
30C14430 




OB33 





1006 




SLA 




6 


LOOK AT CHANNEL BITS 


30C 14440 




OB 34 





6115 




LDX 


1 


/15 


LO MSG NUMBER 


30C14450 




0B3S 


01 


44200A80 


• 


BSI 


L 


ERR15,£ 


BR IF NOT EQUAL 


300 14460 
30C14470 




0637 


01 


4C800AE6 


RTRNl 

* 


BSC 


I 


MAIT 




30C14480 
30C 14490 










»»*♦•**••*****•••*••*»*»•»•*•***•••»#«•**»** 


30C14500 










* 






CHECK REAOY 


30C14510 










• **>*•••• •*•**»•••••••*••••**••*** •• •••• ••«•• 


30C 14520 










* THIS SUBROUTINE CHECKS THE OSM FOR 


30C14530 










* READY CONDITIONS 




30C 14540 
30C14550 




























• 










30C14560 




0B39 





0000 


REAOY 


DC 




•>• 




30C14570 




0B3A 





61F0 




LOX 


I 


-3 




30C14580 




0B3B 





6920 




STX 


1 


OLVCT 




30C 14590 




0B3C 





0800 


ROYi 


XIO 




SENSE-l 


SENSE OSM 


30C14600 




0630 


01 


E4000BFF 




AND 


L 


KFFOO 


CK BITS 0-7 


30C14610 




0B3F 





D090 




STO 




OSMM 


STORE OSM IN MSG TABLE 


30C1462C 




0840 


01 


4C980B39 




BSC 


I 


REAOY, ♦- 


REAOY IF BRANCH 


30C14630 




0842 





E02S 




ANO 




RDYMK 


MSX NROV 8 IT 


30C 14640 




0B43 


01 


74030869 




MOX 


L 


OLVCT, 3 




30C14650 




0B45 





7007 


• 


MOX 




R0V2 




30C 14660 
30C14670 




OB 46 


01 


442009F9 


• 


BSI 


L 


ERR1,2 


TYPE ERROR MESSAGE 


30C14680 
30C14690 




0648 


00 


44B00163 




BSI 


I 


LOG 


TYPE 


30C 14700 




064A 


1 


0B6A 


* 


OC 




STN 


MESSAGE 


30C14710 
30C14720 




0B4B 





1810 




SRA 




16 


SET TO OELAV FOR 


30C14730 




0B4C 





001 C 




STO 




OLVCT 


TEN SECONDS 


30C 14740 




0640 


01 


65000B3C 


R0Y2 


LOX 


LI 


R0V1 




30C 14750 




0B4F 


01 


600005E6 




STX 


LI 


MLSCF*1 




30C 14760 




0B51 


01 


4C000B10 


• 


BSC 


L 


MAIT4 


CK ROUTINE SELECT SMS 


30C14770 
30C 14780 










•♦A***************************************** 


30C14790 










* 






FORM CHECK 


30C 14800 










ft******************************************* 


30C14810 










* 


THIS 


SUBROUTINE 


CHECKS FOR A FORM CHECK 


30C14820 










• 


AFTER A 


SPACE OR 


SKIP COMMANO 


30C14830 
30C 14840 




























* 










30C14850 




OB 53 





0000 


FORMS 


DC 




*-• 




30C 14860 




OB 54 





61F0 




LOX 


1 


-3 




30C14870 




0B55 





6913 




STX 


1 


OLVCT 




30C 14880 




OB 56 





08C3 


F0RM1 


XIO 




SENSE-1 




30C.14890 




OB57 





1005 




SLA 




5 




30C 14900 




0858 


01 


4C900BS3 


• ' 


BSC 


1 


FORMS, - 


BR IF NO FORMS CK 


30C14910 
30C 14920 




0B5A 


01 


74030B69 




MOX 


L 


OLVCT, 3 




30C14930 




0B5C 





7005 




MOX 




F0RN2 




30C14940 




06 50 


00 


44800163 




BSI 


1 


LOG 


TYPE 


30C 14950 




065F 


1 


0B6A 


* 


DC 




STM 


MESSAGE 


30C 14960 
30C14970 




0B60 





1810 




S»A 




16 


SET TO OELAV FOR 


3 OC 14980 




OATE 




02JAN66 


1M AY 66 


01JUL66 15N0V66 03APR67 


PROG ID 


03OC-2 


EC NO. 


415490 


415490B 


415490C 419643 4196430 
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0861 





0007 


• 


STO 




OLYCT 


TEN SECONDS 


0862 


01 


65000856 


* 
F0RM2 


LOX 


LI 


F0RM1 




0B6* 


01 


600005 E6 




STX 


LI 


MLSCF^l 




0B66 


01 


4C000B10 


• 
ROVNK 


BSC 


L 


MA IT* 


CK ROUTINE SEL 


0663 





FBOO 


OC 




/FBOO 




0669 





0000 


OLYCT 

• 
STN 


DC 







OELAV COUNTER 


0B6A 





0001 


DC 




1 


MESSAGE NUMBER 


0B6B 





0000 




OC 




/oooo 


HEX/DECIMAL SH 


0B6C 





0001 




OC 




/0001 


OATA MOM) 10 


0660 


1 


0085 




OC 




ANROY 




066E 





0000 




OC 









066F 





1132 


• 


DC 




• 1132 


MACHINE TYPE 



* INTERRUPT ROUTINE 



0670 


0000 


PIRT 


OC 




•-• 




0871 01 


6EO00C3D 




STX 


L2 


I0UT2U 


SAVE XR2 


0673 


1610 




SRA 




16 




08 74 01 


040008FC 




STO 


L 


EXPCT«2 




06 76 00 


6700050C 




LOX 


L3 


1500 


RESET INTERRUPT 


0678 


66A5 




STX 


3 


WCNT 


HAIT COUNTER 


06 79 01 


7*010B1A 




NOX 


L 


ICNTtl 


CNT INTERRUPTS 


0678 


1000 




NOP 









0B7C 01 OCOOOBEE 
0B7E D06F 
06 7F 01 D*000C0* 
0681 01 4CIOOC08 



XIO L SRSET-1 

STO HAS 

STO L RTRNS 

BSC L SKINT ,- 



SENSE AND RESET OSM 
SAVE OSM 

BR IF NOT PRINT RESP 








066E 


• 






READ EMIT 


INTERRUPT 


06 83 


• 
PINT 


XIO 




ROEMT 


READ EMIT 


OB 84 





COT 5 




LO 




EXPCT 




0685 





D076 




STO 




EXPCT *2 


BUILO EXPECTEO OSM 


0686 


01 


44000C4D 




BSI 


L 


CKENT 


CK EMIT SEQUENCE 


0688 





C067 




LO 




SCNCT 


CHECK FOR PRINT 


0689 


01 


4C300BBC 


• 


BSC 


L 


PI3.Z- 


BR IF PRINT 


0688 





C071 


LO 




IOLCT 


CK FOR IDLE 


06 8C 


01 


4C200B96 


• 


BSC 


L 


PI 1,2 


BR IF I OLE 


088E 


01 


74FF0C0S 


MOK 


L 


STPCT ,-1 




0690 






707A 
0068 


• 


MDX 




SKINT 






• 






STOP PRINTER 


0891 


• 


STO 




EXPCT 




06 92 





0089 




STO 




TBOSM 




0693 





0060 




STO 




EMTSM 


RESET 1ST EMIT SH 


0894 





0857 




XIO 




STPPT-l 


STOP PRINTER 


0695 





7075 


• 
PIl 


MOX 




SKINT 




0696 


01 


74FF06FD 


MOX 


L 


I0LCT.-1 


DEC IDLE CNT 


0698 





7072 


• 

• 


MDX 




SKINT 



















DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
4154906 



01JUL66 
415490C 



1SN0V66 
419643 



03APR67 
4196430 



30C 14990 
30C 15000 
30C15010 
30C 15020 
30C15030 
30C 15040 
30C15050 
30C 15060 
30C15070 
30C15080 
30C 15090 
30C15100 
30C15110 
30C15120 
30C15130 
30C15140 
30C15150 
30C15160 
30C 15170 
30C15180 
30C15190 
30C 15200 
30C15210 
30C15220 
30C15230 
30C 15240 
30C 15250 
30C 15260 
30C15270 
30C15280 
30C15290 
30C15300 
30C15310 
30C 15320 
30C1533O 
30C 15340 
3OC15350 
30C15360 
30C15370 
30C 15380 
30 CI 5390 
30C 15400 
30C15410 
30C 15420 
30C15430 
30C 15440 
30C 15450 
30C15460 
30C15470 
30CI5480 
30C 15490 
30C 15500 
30C15510 
30C15520 
30C15530 
30C 15540 
300 15550 
30C 15560 
30C 15570 
30C15580 
30C15590 
30C 15600 
30C15610 
30C15620 
30C15630 
30C 15640 
30C15650 
30C15660 



PROG IC 
PAGE 



030C-2 
12 







• 
•— — 




IOLE CNT-0 


, SET TO RETURN 


30C 15670 

30C15680 






















* 








30C1S690 




0399 


1810 




SRA 


16 




30C15700 




0B9A 


6310 




LOX 


3 16 


SET FOR 16 EMITS 


30C15710 




0696 01 


74000C02 




MOX 


L SPCSH.O 


CK SPACE-PRINT ON SH 


30C 15720 




0B90 


7003 


• 


MDX 


PI2 




30C1S730 
30C 15740 




0B9E 


0065 




STO 


RTRNS 


SET TO RETURN TO MAINLN 


30C15750 




0B9F 


6B65 




STX 


3 STPCT 


THEN TURN PRINT OFF 


30C 15760 




06A0 


706A 


• 


MDX 


SKINT 




30C15770 
30C15780 
30C 15790 






















* 

» - ■ 




SPACE HITH 


PRINTER ON 


30C 15800 
30C15810 






















* 








30C15620 




08A1 01 


74FF0C02 


PT2 


MOX 


L SPCSH.-l 


DEC SPACE COUNT 


30C15830 




0BA3 


1000 




NOP 






30C 15840 




08A4 


6660 




STX 


3 STPCT 




30C15850 




0BA5 


0063 




LO 


K1200 




30C15860 




0BA6 01 


EC000B1C 




OR 


L T8DSH 


BIULO BUSY OSH 


30C15870 




08A8 01 


O4000AE0 




STO 


L BDSH*1 




30C158SO 




OBAA 00 


67002200 




LOX 


L3 /2200 


SET EXPECTED SPACE 


30C15890 




08 AC 


6B4E 




STX 


3 EXPCT*1 


RESPONSE DSH 


30C 15900 




OS AD 00 


67009200 




LOX 


L3 /9200 


SET EXPECTED EMIT 


30C15910 




OBAF 


6B4A 




STX 


3 EXPCT 


RESPONSE DSH 


30C 15920 




OB BO 01 


6 6000062 




LOX 


L2 ASPIN 




30C 15930 




0662 01 


6E000AD0 


• 


STX 


L2 OPSH 


SET LAST OP SH 


30C 159*0 
30C 15950 




0684 


083F 


• 


XIO 


ST SPA -1 


SPACE 


30C 15960 
30C15970 




06B5 01 


OC00081A 




XIO 


L SENSE-1 


SENSE BUSY OSH 


30C 15980 




0BB7 


E048 


• 


ANO 


K7F00 


MASK EMIT RESPONSE ANO 
CHANNEL BITS 


30C 15990 
30C16000 




0688 01 


04000AOF 




STO 


L BOSM 


SAVE BUSY DSH 


3OC16O10 




08BA 01 


4C000C3C 


• 


BSC 


L I0UT2 




30C 16020 
30C16030 




OBBC 01 


74FF0BF0 


PI3 


NOX 


L SCNCT ,-1 


DEC SCAN CNT 


3 OC 160*0 




OBBE 


7006 


• 


MDX 


PI4 


GO SET UP PRINT BUFFER 


30C16050 
30C16060 
30C16070 














■ " " ■■'• 








• 




ENO OF PRINT 


30C 16080 
30C16090 






















• 








30C16100 




OBBF 01 


440009BA 




BSI 


L CLEAR 


SET BUFFER TO ZERO 


30C16110 




08C1 00 


67008200 




LDX 


L3 /8200 


SET EXPCT FOR 


30C16120 




0BC3 


6B36 




STX 


3 EXPCT 


NORMAL PRINT OSH 


30016130 




0BC4 


7046 




MDX 


SKINT 




30C161*0 
300 161 50 
30C 16160 


























SET UP PRINT BUFFER 


30C 16170 
3OC16180 










* 




















30C16190 




0BC5 


10A0 


PI* 


SLT 


32 


- 


3OC16200 




06C6 01 


C40009B8 




LO 


L NSGSH 


CK MSG SH 


30C 16210 




0BC8 01 


4C200C9F 




BSC 


L MSCAN.Z 


IF SH ON- GO SET UP MSG 


30C16220 




OBCA 01 


678005E1 




LOX 


13 SH2 




30C16230 




OBCC 


1847 




SRA 


71 




30C 162*0 




OBCO 


73FF 




MOX 


3 -1 




30C16250 




OBCE 


70FO 




MDX 


*-3 




30C16260 




OBCF 00 


67000000 


PIS 


LOX 


L3 *-• 


INITIALIZED TO -16 


30C 16270 




0601 00 


66000000 


PI6 


LOX 


L2 ♦-* 


INITIALIZED TO -8 


30C 16280 




0603 


C226 




LD 


2 40 


LD WORD TO SHIFT 


JOC 16290 




0604 


1BC1 




RTE 


1 


SHIFT BIT 


30C 16300 




0605 


0228 




STO 


2 40 




JOC 163 10 




0606 


7301 




POX 


3 1 


OECRENENT HORO CNT 


30C16320 




0807 


7007 




MDX 


PI7 




3OC16330 




0608 


7201 




MOX 


2 1 


AOV TO NEXT HORO 


300 163*0 




DATE 


02JAN66 


IN AY 66 


91JUL66 15N0V66 03APR67 


PROG 10 


030C-2 


EC NO. 


415490 


4154908 


» 15*900 419643 4196430 
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IBK MAINTENANCE DIAGNOSTIC PROGRAM FUR THE 1130 SYSTEM 



1132 PRINTER FUNCTION TEST 



PART 
PAGE 



NO. 



2191220 
13A 



0809 
OBOA 



7001 
70E4 



06DB 63F0 
OBOC 1090 
OB 00 00 060000 28 

OBOF C021 
OBEO 00 EC00002? 
0BE2 00 D4000027 
0BE4 6BEB 
OSES 6AEC 
03E6 01 74010BEC 
OBEB 7022 

0BE9 63CF 
OBEA 6B01 
OBEB 70D9 



OB EC 




0000 


OB EC 





0000 


08ED 





3440 


oeEE 





0000 


OBEF 





3701 


03FC 





0000 


0BF1 





3402 


0BF2 


1 


OCOA 


06F3 





3200 


0BF4 





0000 


0BF5 





3401 


0BF6 





0000 


0BF7 





0000 


03 f 8 





BFOO 


00F9 





0000 


OBFA 





0000 


OBFB 





0000 


OBFC 





0000 


08FO 





0000 


06FE 





EFOO 


06FF 





FFOO 


OCOO 





7F00 


0CO1 





0001 


0C02 





0000 


0C03 





0000 


0C04 





0000 


0C05 





0000 


0C06 





0000 


0C07 





0000 


0C08 





0000 


X09 





1200 


OCOA 





0000 



OCOB C0E2 
OCOC 1001 
OCOO 01 4C100C23 

OCOF COEB 

(JC10 E8EB 

OCll DOE A 

0C12 01 74000938 





NOX 




•♦1 






MOX 




PI 3*3 


FINISHED- STOP PRINT 




LOX 


3 


-16 


RESET SHIFT CNT 




SLT 




16 




* 
PI7 


STO 


L2 


40 


SET NEXT HORO 


ID 




K0001 






OR 


L 


39 


RESTORE SCAN COMP BI 




STO 


L 


39 






STX 


3 


PI5*l 


SAVE XR1 




SIX 


2 


PI6*1 


SAVE XR2 




MOX 


L 


BLANK, 1 


WHEN ZERO- PUT BLANK 


• 


MOX 




SKINT 


IN PATTERN 


LDX 


3 


-49 


PUT BLANK 




STX 


3 


BLANK 


IN PATTERN 




MOX 




PI4 





CONSTANTS AND STORAGE 





8SS 


E 




BLANK 


DC 


*-* 


PATTERN BLANK CNT 


STPPT 


DC 


/3440 


STOP PRINTER 


WAS 


DC 


*-» 


INTERRUPT DSU 


SRSET 


DC 


/3701 


SENSE AND RESET DSU 


SCNCT 


DC 


•-♦ 


SCAN COUNT 


STPCA 


DC 


/3402 


STOP CARRIAGE 


ROEMT 


DC 


EMIT 


REAO COUNTER 




DC 


/3200 


SCANNEO 


EMTSU 


DC 


*-* 


FIRST EMIT SW 


STSPA 


DC 


/3401 


START SPACE 


AND EM 


DC 


•-• 




OREM 


DC 


•-• 




ANOOR 


DC 


/BFOO 


EMIT CK CONSTANT 




DC 


/OOOO 




EXPCT 


DC 


*-* 


EXPECTEO INTRPT OSH 




DC 


*~* 






DC 


*-♦ 




IOLCT 


DC 


*-* 


IOLE COUNT 


KEFOO 


DC 


/EFOO 




KFFOO 


DC 


/FFOO 




K7F00 


DC 


/7F00 




K0001 


DC 


/0001 




SPCSM 


DC 


*-# 


SPACE WITH PRINT ON 


SPCSX 


DC 


*-• 




RTRNS 


DC 


•-• 




STPCT 


DC 


•-• 


STOP PRINTER COUNT 


CHARC 


DC 


*-♦ 


TEMPORARY STORAGE 


CKESW 


OC 


»-* 


ERROR SWITCH 


EMTCT 


DC 


•-• 


EMIT COUNTER 


K1200 


OC 


/1200 




EMIT 

• 


DC 


•-* 




• 

* 




SKIP INTERRUPT 



SKINT LD 
SLA 
BSC 

LD 

OR 

STO 

MOX 



WAS 
1 
L SPINT,- 

EXPCT*1 
EXPCT+2 
EXPCT*2 
L SKPTO 



LO OSW 

BR IF NOT SKIP 

LO EXPCT SKIP OSW 
BUILD EXPECTEO OSW 

CK SKIP TO 



DATE 

EC NO. 



02JAN66 
415490 



01MAY66 
415490B 



01JUL66 
415490C 



15N0V66 
419643 



03APR67 
4196430 



30C16350 
30C16360 

30C16370 
30C16380 
30C 16390 
30C 16400 
30C16410 
30C16420 
30C16430 
30C16440 
30C16450 
30C 16460 
30C16470 
30C16480 
30C16490 
30C16S00 
30C16510 
30C16520 
30C16530 
30C 16540 
30C16550 
30C16560 
30C16S70 
30C16580 
30C 16590 
30C16600 
30C16610 
30C16620 
30C16630 
30C 16640 
30C16650 
30C 16660 
30C16670 
30C16680 
30C16690 
30C16700 
30C16710 
30C 16720 
30C16730 
30C16740 
30C16750 
30C 167<0 
30C16770 
30C16780 
30C16790 
30C16BOO 
30C16810 
30C16820 
3006830 
3OC|6g*0 
30C 1*050 
30C1686O 
30C16870 
30016880 
30C16890 
30C16900 
30C16910 
30C16920 
30C 16930 
30C169V0 
30C16950 
30 C 16960 
30C16970 
30C 16980 
3001*990 
30C17000 
300 170 10 
30C17020 



PROG ID 
PAGE 



030C-2 
13 



0C14 


7001 




HDX 




SKlNl 




30C17030 




0C15 


7003 


• 


MOX 




SKIN2 




30C17040 
30C1705O 




0C16 01 


74FF0939 


SKIN1 


MOX 


L 


SKCNT.-l 


STOP CARRIAGE AFTER 16 


30C17060 




0CI8 


7003 


• 


MOX 




SKIN3 


SKIP INTRPTS WITHOUT 
A MATCH 


30C17070 
30C17080 




0C19 01 


OCOOOBFO 


SKIN2 


XIO 


L 


STPCA-1 


STOP CARRIAGE 


30C17090 




X1B 


7016 


• 


MOX 




SPIN2 




3OC17100 
30C17UO 




0C1C 


C001 


SKIN3 


LD 




WAS 




30C17120 




0C10 


1000 




SLA 




8 


COMPARE PRESENT CHANNEL 


30C17130 




0C1E 01 


F4000938 




EOR 


L 


SKPTO 


WITH DESIRED 


30C17140 




0C20 01 


4C200C3C 




BSC 


L 


IOUT2.2 


BR IF NOT EQUAL 


30C17150 




0C22 


7CF6 




MUX 




SKIN2 




30C17160 


















30C17170 

30C17180 






























SPACE INTE 


RRUPT 


30C17190 
30C17200 


































30C17210 




0C23 


COCA 


SPINT 


LO 




WAS 




3CC17220 




0C24 


1002 




SLA 




2 




30C 17230 




0025 01 


4C100C35 




BSC 


L 


10UT,- 


BR IF NOT SPACE 


300172*0 




OC27 


6310 




LOX 


3 


16 


SET TO HOLD PRNTR ON 


30C17250 




OC28 


C002 




LD 




Expcm 


LO EXPCT SPACE OSW 


30C17260 




0C29 


E602 




OR 




EXPCT«2 


BUILO EXPECTEO DSW 


30C17270 




0C2A 


E0D3 




AND 




KEFOO 




3OC17280 




0C2B 


DOOO 




STO 




EXPCT»2 




30C17290 




CC2C 


C0D5 




LO 




SPCSW 


CK SPACE-PRINT ON SW 


30C17300 




X2D 01 


4C200BA1 


* 


BSC 


L 


PI2.Z 


BR IF ON 


30C17310 
30C1732O 




0C2F 


COCE 


SPIN1 


LO 




KEFOO 




30C17330 




X30 


E0C9 




ANO 




EXPCT 


REMOVE CARRIAGE BUSY 


30C17340 




0C31 


ooca 




STO 




EXPCT 




30C17350 




0C32 


1810 


SPIN2 


SRA 




16 




30C17360 




0C33 


DOC 7 




STO 




EXPCTn 


RESET SKID/SPACE EXPCT 


30C17370 




0C34 


7003 




MDX 




IOUTl 




30C17380 








• 










30C17390 
30C17400 
30C17410 
30C17420 
30C1743O 








• 






RETURN FROM INTERRUPT 








• 












0C35 


COCE 


I0UT 


LD 




RTRNS 




30C17',40 




0C36 Gl 


4C260C3C 


« 


BSC 


L 


I0UT2.Z* 


GO RTRN IF NOT PRINT 


30C17450 
30C17460 




0C38 01 


67OO0B1F 


IOUTl 


LOX 


L3 


RTRN 




30C1747O 




0C3A 01 


6F0005E6 


• 


STX 


L3 


MLSCF»i 


SET MLSCF 


30C17480 
30017490 




0C3C 00 


66000000 


I0UT2 


LDX 


L2 


*-• 


RESTORE XR2 


30C17500 




0C3E 01 


7400 OB ID 




MOX 


L 


EBITS 


SKIP IF NO DSW ER 


30C17510 




0C40 


700A 


» 


MDX 




I0UT3 




30C 17520 
30C17530 




0C41 


COAC 




LO 




WAS 


LD OSW 


300 17540 




0C42 01 


D4000AE1 




STO 


L 


IDSW 


STO OSW WAS 


30C17550 




0C44 


FOB 7 




EOR 




EXPCT*2 


COMPARE WITH EXPECTEO OSW 


3CC17560 




X45 


E0B8 




AND 




KEFOO 




30C17S70 




0C46 01 


04000B10 




STO 


L 


EBITS 


SAVE ER BITS 


30C1758O 




0C48 


F0A5 




EOR 




WAS 


BUILD OSW S/8 


30C17590 




0C49 01 


04000AE2 




STO 


L 


IDSW+l 


STO OSW S/B 


30C17600 




0C4B 01 


4C800B70 


I0UT3 

• 


BSC 


' 


PIRT 




30C17610 
30C1762O 








******** t»* *«*******«••**«* »****«**** «*••*** 


30C17630 








• 






CHECK EMIT 




30C17640 








******** M** **»«* '«* ********* **** ****** ***»*(* 


30C 17650 






• 


* THIS SUBROUTINE F IrfOS 


THE FIRST CHARACTER 


30C 17660 








» Emitted 


IN 


THE TABLE 




30C17670 








• — -. 













30Cl76e0 








* 










30C17690 




0C4D 


0000 


CKEKT 


DC 




•-• 




30C17700 




DATE 


02JAN66 


01HAY66 


1JUL66 15N0V66 03APR67 
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EC NO. 
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4 1549GB 


4 15490C 419643 4196430 
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X4E 


COBS 




to 




CKESH 




30C17710 


X4F 01 


4CA00C40 




BSC 


I 


CKENT, 7. 




30C17720 


0C51 


COBS 




to 




EMIT 




30C17730 


OC52 01 


04000ADB 


• 


STO 


t 


EHTMS 


STO EMIT MAS 


30C17740 
30C17750 


0C54 01 


74000BF4 




NOX 


t 


ENTSM 


CK FOR FIRST ENIT 


30C 17760 


0C56 


7038 


* 


MOX 




CKEN6 


8R IF NOT FIRST 


30C 17770 
30C 17780 


0C57 


C0B2 




to 




EMIT 




30C 17790 


X58 


E69E 




OR 




OR EN 


CK FOR MISSING EMIT BITS 


30C17800 


0C59 


0090 




STO 




OREN 


FFOO IF OK 


30C17810 


0C5A 


COAF 




to 




EMIT 




30C 17820 


0C5B 


E09A 




AND 




ANOEN 


CK FOR SHORTED ENIT BITS 


30C 17830 


0C5C 


0099 




STO 




ANOEM 


0000 IF OK 


30C 17840 


0C50 


F099 




EOR 




OREM 


CK FOR ENIT BITS OK 


30C17850 


X5E 


FOAO 




EOR 




KFFOO 




30C17860 


OCSF 01 


4C200C75 


• 


BSC 


t 


CKEM5.I 


COM IF Att ENIT BITS OK 


30C17870 
30C 17880 


0C61 


6300 




tox 


3 


-48 


FINO FIRST CHARACTER 


30C17890 


0C62 01 


C7000CEA 


CKEN1 


to 


t3 


CHAR* 48 


EMITTED IN 


30C 17900 


0C64 


90A5 




S 




EMIT 


SEQUENCE TABtE 


30C17910 


X65 01 


4C180C60 




BSC 


t 


CKEM2.«- 


FOUND IF BR 


30C 17920 


0C67 


7301 




MOX 


3 


1 


GO TO NEXT TABtE ENTRY 


30C17930 


0C68 


70F9 




MOX 




CKEM1 




30C 17940 


0C69 01 


67000A30 




tox 


t3 


ERR7 




30C 17950 


0C6B 


6B9B 




STX 


3 


CKESH 




30C 17960 


X6C 


7006 


• 


NOX 




CKEN4 




30C 17970 
30C17980 


CC60 


6886 


CREM2 


STX 




ENTSM 


RESET 1ST SCAN SH 


30C 17990 


0C6E 


7301 




NOX 


3 


1 


OECRENENT XR FOR NEXT CHAR 


30C 18000 


0C6F 


7001 




NOX 




CKEN3 


ANO SAVE 


30C18010 


CC70 


6300 




tox 


3 


-48 


IF XR3 - Ot RESET 


30C 18020 


X71 01 


6F000C06 


CKEM3 


STX 


t3 


CMARC 




30C18030 


0C73 01 


4C800C40 


CKEM4 

• 


BSC 


I 


CKENT 




30C 18040 
30C18050 


0C75 01 


74FF0C08 


CKEHS 


MOX 


t 


EMTCT.-l 


CNT 100 ENITS 


30C 18060 


0C77 


70C4 




MOX 




I0UT2 


THEN SKIP 


3OC18070 


0C78 01 


67000A35 




tox 


t3 


ERR6 




30C 18080 


X7A 


6B8C 




STX 


3 


CKESH 


SET ER SM FOR ER 6 


30C18090 


0C7B 01 


CC0008F6 




too 


t 


ANOEN 


tO ERROR CODE 


3OC1810O 


X70 01 


0C000A08 




STO 


t 


ERM4 


SET IN NESSAGE 


30C18110 


0C7F 01 


CC000BF8 




too 


t 


ANOOR 


REINITIALIZE ENIT 


30C18120 


0C81 01 


0C000BF6 




STO 


t 


ANOEN 


CHECK WORD 


30C18130 


OC83 


6364 




tDX 


3 


100 




30C 18140 


X84 


6B83 




STX 


3 


ENTCT 


RESET EMIT CK CNT 


30C18150 


X85 01 


OC0008EC 




XI0 


t 


STPPT-l 


STOP PRINTER 


30C 18160 


0CS7 


1810 




SRA 




16 




30C 18170 


U88 01 


04O00BFA 




STO 


t 


EXPCf 




30C18180 


X8A 01 


D4000B1C 




STO 


t 


TBOSM 




3OC18190 


X8C 01 


OVJ00BF4 




STO 


t 


EMTSH 


RESET 1ST ENIT SH 


30C 18200 


X8E 


70A9 


• 


MOX 




I0UT1 




30C 18210 
30C 18220 
3OC18230 




















• THIS SUBROUTINE CHECKS 


THE CHARACTER ENITTEO 


30C 18240. 






• HITH THE 


TABLE OF CHARACTERS IN THE PROPER SEQ 


30C 18250 
30C 18260 




















* 










30C 18270 


X8F 01 


6780X06 


CKEM6 


tox 


13 


CHARC 


RESET XR3 ANO CHECK IF 


30C18280 


X91 01 


C7000CEA 




to 


L3 CHAR*«8 


CHAR EMITTED 


30C18290 


X93 01 


04000AOC 




STO 


t 


EMTS8 


STO ENIT S/B 


30C 18300 


X95 Ol 


94000COA 




s 


t 


EMIT 


IS IN THE PROPER SEQUENCE 


30C 18310 


X97 01 


4C18X60 




BSC 


t 


CKEM2.«~ 


VESt IF BRANCH 


30C 18320 


0C99 01 


67000A45 




tox 


L3 


ERR8 




30C 18330 


X9B 01 


6F00OCO7 




STX 


t3 


CKESH 


SET ERROR SH 


30C 18340 


0C9C 01 


4C800C4D 


• 


BSC 


I 


CKENT 




30C18350 
30C 18360 






A******************************************* 


30C 18370 






• 






MESSAGE SET UP 


30C18380 


DATE 


02JAN66 


01MAV66 1 


01 JUL 66 15N0V66 3APR6T 


PROG 10 030C-2 


EC NO. 


415490 


4154908 415490C 419643 4196430 
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•♦a***************************************** 

* THIS SUBROUTINE SCANS THE PRINTER MESSAGE 

• ANO SETS THE PRINT BUFFER FOR THE NEXT EMIT. 









^ — — — 

* 










X9F 





63E0 


NSC AN 


tox 


3 


-32 


SET TO SCAN BUFFER 


XAO 





10A0 




SLT 




32 




0CA1 


00 


OC000020 


* 


STO 


t 


32 




XA3 





6200 


tox 


2 







XA4 


01 


4C200CA9 


NS1 


BSC 


t 


MS2.Z 


CK FOR NEXT BUF MORO 


XA6 





7201 




MDX 


2 


1 




XA7 


01 


C 4000984 


* 
NS2 


to 


L 


X8000 




XA9 





OOOF 


STO 




TEMP 


SAVE MSG CHAR POSITION 


XAA 


01 


C70000CE 




to 


L3 


BUF+32 


tO NEXT MSG CHARACTER 


XAC 


01 


F4000C0A 




EOR 


L 


EMIT 


COMPARE CHAR HITH EMIT 


XAE 


01 


4C200CB3 




8SC 


L 


MS3.2 


BR IF NOT EQUAL 


XBO 





COOS 




to 




TEMP 


IF EQUAL SET BIT IN 


XB1 





EA1F 




OR 


2 


31 


PRINT BUFFER 


XB2 





021F 


• 
NS3 


STO 


2 


31 




XB3 





COOS 


to 




TEMP 


SHIFT TO NEXT MSG 


XB4 





1801 




SRA 




1 


CHAR POSITION 


XB5 





7301 




MOX 


3 


1 


AOV TO NEXT CHAR 


XB6 





70E0 




MOX 




MSI 




XB7 


01 


4C000C3S 


• 
TEMP 

* 
***** 


BSC 


t 


I0UT 




XB9 





0000 


DC 




*-* 










****** ***t •*****•••****•*****•*• ******* 








* 






ENIT CHARACTERS 








**•***••*•***••••***••••***••**•**•*•••*•••* 








* THIS IS 


THE 


TABLE OF 


CHARACTERS IN THE 








• PROPER SCAN 

* 


EMIT SEQUENCE 



XBA 





F100 


CHAR DC 


/F100 


1 


XBB 





F200 


DC 


/F200 


2 


XBC 





F300 


DC 


/F300 


3 


XBO 





F400 


DC 


/F400 


4 


XBE 





F500 


OC 


/F500 


5 


XBF 





F600 


DC 


/F600 


6 


XCO 





F700 


DC 


/F700 


7 


XC1 





F800 


DC 


/F800 


8 


XC2 





F900 


OC 


/F900 


9 


XC3 





FOOO 


OC 


/FOOO 





XC4 





7E00 


OC 


/7E00 


m 


XC5 





5B00 


DC 


/5800 


8 


XC6 





4 BOO 


OC 


/4B0O 


• 


XC7 





7D00 


OC 


/7000 


m 


XCB 





6 BOO 


OC 


/6B00 


t 


XC9 





5000 


OC 


/5000 


1 


XCA 





6000 


OC 


/6000 


— ■ 


XCB 





4000 


OC 


/4000 


( 


XCC 





4E00 


DC 


/4E00 


♦ 


XCO 





6100 


OC 


/6100 


/ 


XCE 





5C00 


OC 


/5C00 


• 


XCF 





5000 


OC 


/5000 


♦ 


XOO 





0100 


OC 


/D100 


J 


X01 





0200 


OC 


/D200 


K 


X02 





0300 


OC 


/0300 


t 


X03 





0400 


OC 


/0400 


N 


X04 





0500 


DC 


/OSOO 


N 


XD5 





0600 


DC 


/0600 





X06 





0700 


OC 


/0700 


P 


XD7 





0800 


OC 


/oaoo 


Q 


X08 





0900 


OC 


/0900 


R 


DATE 




02JAN66 


01MAY66 


01JUL66 


15N0V66 03APR67 


EC NO. 


415490 


415490B 


415490C 


419643 4196430 



30C 18390 
30C18400 
30C18410 
30C18420 
30C1S430 
30C 18440 
3 OC 18450 
30C18460 
30C18470 
30C18480 
30C 18*90 
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30C18550 
30C 18560 
30C18570 
30C18580 
30C18590 
30C18600 
30C18610 
30C18620 
30C18630 
30C18640 
30C18650 
30C18660 
30C18670 
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30C 18690 
30C 18700 
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30C18720 
30C18730 
30C 18740 
30C18750 
30C 18760 
30C1877O 
30C18780 
30C18790 
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30C 18820 
30C18830 
30C18840 
30C188S0 
30C 18860 
30C18870 
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30C19080 
30C19090 
30C19100 
30C19110 
30C19120 
30C19130 
30C 19140 
30C19150 
30C19160 
30C19170 
30C19180 
30C19190 
30C 19200 
30C19210 
30C19220 
30C19230 
30C19240 
3OC19250 
30019260 
30C19270 
30C19280 
30C19290 
30C 19300 
30C19310 
30C19320 
30C19330 
30C19340 
30C19350 
30C 19360 
30C 19370 
30C 19380 
30C19390 
30C19400 
30C19410 
30C 19420 
30C 19430 
30C 19440 
30C19450 
30C19460 
30C 19470 
30C 19480 
30C 19490 
30C 19500 
30C19510 
30C 19520 
30C 19530 
30C 19540 
30C 19550 
30C 19560 
30C 19570 
30C 19580 
30C19S90 
30C 19600 
30C19610 
30C 19620 
30C19630 
30C 19640 
30C 19650 
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30C 19680 
30C 19690 
30C 19700 
30C19710 
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30C19730 
30C19740 
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30C 19770 
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MC 19790 
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30C19900 
30C19910 
30C 19920 
30C19930 
300 19940 
30C19950 
30C19960 
30019970 
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30C 19990 
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30C20010 
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30C 20060 
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30C20150 
30C20160 
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30020410 
30C20420 



PROG 10 
PAGE 



03OC-2 
ISA 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 



1132 PRINTER FUNCTION TEST 



PART NO. 2191220 
PAGE 16 



ISM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 



1132 PRINTER FUNCTION TEST 



PART NO. 2191220 
PAGE 16A 



004E 





7636 




DC 


/T636 




0O4F 





5E00 




OC 


/5E00 




0050 





FFFF 


• 
ANSP 


DC 


/FFFF 




0051 





72B2 


DC 


/72B2 


MULT SPACE 


0052 





SE9E 




DC 


/5E9E 




0053 





2100 


• 
ASPC 


DC 


/2100 




0054 





9A56 


DC 


/9A56 


SPICE 


0055 





3E1E 




DC 


/3E1E 




0056 





3600 




OC 


/3600 




0057 





FFFF 


• 
AMSK 


DC 


/FFFF 




0058 





7282 


DC 


/72B2 


NULT SKIP 


0059 





5E9E 




DC 


/5E9€ 




ODSA 





2100 


• 
ASKP 


OC 


/2100 




0O5B 





9A5A 


DC 


/9A5A 


SKIP 


005C 





2256 




DC 


/22S6 




0050 





FFFF 


• 
APRT 


OC 


/FFFF 




0O5E 





5662 


DC 


/S662 


PRINT 


005F 





2276 




OC 


Z2276 




0060 





9EO0 




DC 


/9E00 




0061 





FFFF 


• 
ASPIN 


DC 


/FFFF 




0062 





9A56 


OC 


/9A56 


SPACE- PRINT 


0063 





3E1E 




DC 


/3E1E 




0064 





3684 




DC 


Z3684 




0065 





2156 




DC 


/2156 




0066 





6222 




DC 


Z6222 




0067 





769E 




DC 


/769£ 




0068 





2152 




DC 


/2152 




0069 





7600 




DC 


/7600 




0D6A 





FFFF 


• 
ASNER 


OC 


/FFFF 




006 B 





9 A3 6 


OC 


/9A36 


SENSE EMI 


00 6C 





769 A 




DC 


/769A 




0060 





3621 




DC 


/3621 




006E 





3662 




DC 


/3662 




0O6F 





6200 




DC 


/6200 




0070 





FFFF 


• 
AINVC 


DC 


/FFFF 




0071 





923E 


OC 


/923E 


HAS -INVALO ( 


0072 





9A21 




OC 


/9A21 




0073 





2184 




DC 


/2184 




0074 





2276 




DC 


Z2276 




0O75 





B63E 




DC 


/B63E 




0076 





5E32 




DC 


/5E32 




0077 





2UE 




DC 


/211E 




0078 





263E 




DC 


/263E 




0079 





7676 




DC 


Z7676 




007A 





365E 




OC 


/365E 




0078 





211E 




DC 


/211E 




007C 





5232 




OC 


/S232 




00 70 





3600 




DC 


/3600 




007E 


G 


FFFF 


• 
AtOP 


OC 


/FFFF 




007F 





09SE 


OC 


/095E 


LAST OP- 


0080 





3E9A 




OC 


/3E9A 




0061 





9E21 




DC 


/9E21 




0082 





5256 




DC 


/52S6 




0083 





8421 




OC 


/8421 




0084 





FFFF 


• 
ANROY 


DC 


/FFFF 




0085 





7662 


DC 


Z7662 


NROY 


0086 





32A6 




DC 


/32A6 




0087 





FFFF 




DC 


/FFFF 




DATE 




02JAN66 


IN AY 66 


01JUL66 


15N0V66 03APR67 


EC NO. 


415490 


415490B 


415490C 


419643 4196430 



30C20430 
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30C20530 
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30C20570 
30C20580 
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30C20620 
30C20630 
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30C20650 
30C20660 
30C20670 
30C 20680 
30C20690 
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30C20710 
30C20720 
30C20730 
30C20740 
30C20750 
30C20760 
30C20770 
30C20780 
30C20790 
30C20800 
30C20810 
30C20820 
30C20830 
30C20840 
3OC208S0 
30C20860 
30C20870 
30C20880 
30C20S90 
30C20900 
30C20910 
30C20920 
30C2O930 
30C20940 
30C20950 
30C20960 
30C20970 
30C20980 
30C20990 
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OC 
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DC 

• 

BUF BSS 

• 

PNTAB DC 
OC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
OC 
OC 
OC 
DC 
DC 
OC 
OC 
0" 
DC 



SET SM 1-7 TO COL 



8-15 FOR CHAR 



TURN ON TO START PRINT 



/9A36 
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30C21120 
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30C21140 
30C21150 
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30C21170 
30C21180 
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30C21200 
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30C21260 
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30C21420 
30C21430 
30C21440 
30C21450 
30C21460 
30C21470 
30C21480 
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30C21520 
30C21530 
30C21540 
30C21550 
30C21560 
30C21570 
30C21580 
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30C21620 
30C21630 
30C21640 
30C21650 
30C21660 
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30C21680 
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0A45 
0A4C 
OABA 

OACB 
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0862 
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0AE1 
017A 
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08AD 
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08B 0, 09CO 1 09E It OBBF 

09C2 

09CC 

05FF.063A. 0651. 0678. 06AE*06C4.06F3,070F,07BO, 0823, 

085 B.OB IS 

0602 
0606 

0838, 0B43.0B4C, 0855, 0B5A.0B61 

080F.OA7BiOB09tOB3F 

OA29.0AF4.0B23t0C3E.OC46 

06DA, 0706, 0880, 098F,09E7,OBF2,OC51,OC57,0C5A,OC64, 
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0A12.0A10 

0A15 

0A33.0B24 

0A28.0A50.0A5S.0A5A 

0A3B.0C7B 

0A43.0C69 

0A4A.0C99 

0A2B 

09FE.OA08.0A16.0A23.0A39, 

0A62.OA71.0A7D.OA88.0A8F, 

0AC2 

0AC5 

0808, 09OB.091B. 0923.0925* 

0B91.0BAC.0BAF.0BC3.0COF. 

0C30.OC31.0C33.0C44.0C88 

08E7.0907.0910.0B5B 
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HSGSH 
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MSG13 

MSG14 
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HSG4 
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MSG6 
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N049 
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NRTN 
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PIO 

PINT 
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OABO 
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0AA8 
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06C7 
06C9 
0626 
09B6 
0AC6 
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08A5 
05DC 
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0B70 
0B96 
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074 A, 

0618, 

08C8 

097A.09C6.0BC* 
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0A7C 
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0A1B 
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0A3B 
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0A4E 
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0870.088C 
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1132 PRINTER FUNCTION TEST 



PMG01 


OOEC 


0004 


PMG02 


00F2 


0005 


PMG03 


ODFC 


0006 


PMG04 


ODFF 


0007 


PNG05 


0E02 


000 • 


PHG06 


OEOE 


0009 


PMG07 


0E1A 


ODE 2 


PKG08 


0E2T 


OOEB 


PMGC9 


0E2A 


OOOB 


PMG10 


0E20 


OOOA 


PMG11 


0E30 


000 It 0000 


PHG12 


0E33 


0D02.OOE9 


PNG13 


0E37 


0003.00EA 


PMG14 


0E3A 


OOET 


PIG 15 


0E3F 


0000 


PMGI6 


0E44 


OOCE 


PHG17 


0E47 


OOCF 


PHG18 


0E49 


OOES 


PKG19 


0E4B 


OOOE 


PMG20 


0140 


ODOF 


PMG21 


0E4F 


OOEO 


PMG22 


0E51 


ODE I 


PMG24 


0E53 


OOEB 


PKG25 


0E55 


0DE4 


PMG26 


0E57 


07E2.00E5 


PMG27 


0E59 


00E6 


PMG8I 


0E21 


OOOC 


PNSG 


0946 


0660f06A3t072Ct0789t07E7,08BO>094Ef097Et0980 


PNS1 


0958 


0957,0965 


PMS2 


0962 


0971,0973 


PMS3 


0970 


096C 


PMS4 


097* 


094 A, 0958 


PMS5 


097E 




PHTAB 


OOCE 


09SF 


PRCON 


0608 


8C 0, 0805 , OSF 5, 097C 


PRC1 


0800 


08E6 


PRC2 


08E7 


08E2 


PRINT 


08C6 


06EC,06FF,089B,08CF,09AE 


RAO 


050E 


0615 


RBSNS 


08*0 


0863 


RDEMT 


0BF2 


0B83 


ROYMK 


0868 


0842 


R0Y1 


0B3C 


0840 


RDV2 


0B40 


0849 


READY 


0B39 


0884,0840 


RIO 


0500 


05EC, 0604, 060 A, 0608, 0600, 0611,0814 


RIOCK 


061B 


0605 


RIPL 


0982 


068 A, 0980 


RIPL1 


0983 


0995 


RIPL2 


0986 


0998 


RIPL3 


098 B 


06B4,06BE,09A1 


RI PL* 


099B 


0991,099* 


RIPLS 


09AS 


099F 


RQKB 


01BC 


0000 


RQTV 


01BB 


0000 


RTNON 


061 C 


060E 


RTNSM 


0165 


061* 


RTRN 


081 F 


0C38 


RTRNS 


oco* 


0B7F,0B9E,0C3S 


RTRN1 


0B37 


0831 


RTT8L 


061D 


0613.06IB.061C 


SAVE 


09B2 


0954, 0959, 095E 


SAVE3 


0687 


0665,0666, 069A,0698 


SCNCT 


OBFO 


0809, 0888, 088C 


SCNT 


0686 


0667, 066A 


SENSE 


0616 


073 5, 0777, 0800, 08FE, 0932 ,OAEO, 0808, OB 2B.0B3C, 



0BB5 



SEQSH 0TC7 072A, 0743, 075E, 0774, 0707, 0700, 07OF 



DATE 
EC NO. 



02JAN66 
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415490C 
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419643 
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4196430 
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SETUP 


08A8 


0862 


SHFT2 


07CB 


0726,0751, 075 3,075A 


SHIFT 


07CA 


072 4, 0748, 0754,0755,0758, 0790.079C 


SKCNT 


0939 


0920, OC 16 


SKINT 


OCOB 


068 1,08 90, 0895,0898, OBAO, 0BC4.08E8 


SKIN1 


0C16 


0C14 


SKIN2 


0C19 


0C15.OC22 


SKINS 


0C1C 


0C18 


SKIP 


0919 


0798,0814,0849,0935 


SKPTO 


0938 


C91A.0C12.0C1E 


SKP1 


0932 


0937 


SPACE 


08F7 


0668,0733, 0775,0787,0802, 082F, 0886,0887, 08C0, 08C1 , 
08CE,0917 


SPCSM 


0C02 


0AE8,0B98,0BA1,0C2C 


SPCSX 


0C03 


069C, 09B0 , OAE 9, OAF 7 


SPC1 


0909 


OSF 8 


SPINT 


OC23 


OCOO 


SPIN1 


0C2F 




SPIN2 


OC32 


0C1B 


SRSET 


OBEF 


0B7C 


START 


0161 


0000,0619,0803,0812,0816 


ST CAR 


0985 


0928 


STM 


0B6A 


0B4A,0B5F 


STOP 


093 A 


0731, 0793, 080F.08AE.08F8, 0931. 0944, 094C.0ABE 


ST PC A 


0BF1 


0C19 


STPCT 


0C05 


0B8E,0B9F,0BA4 


ST PPT 


OBEO 


093 8, 0894, 0C8 5 


STPRT 


0983 


08F1 


STRT 


05E8 


05E3.05E4 


ST SPA 


0BF5 


0911, OB B4 


SVKB 


0180 




SMO 


050F 


0947, 09F0 


SHI 


05E0 


0601,0609,0610 


SM2 


05E1 


05E0, 0804, 083 l.OBCA 


SU3 


05E2 


05FA.08C7 


SH89A 


077F 


OSF 0,0712, 071 5 


TABLE 


0A03 


0ABB,0ABC,0ACA 


TBOSH 


CB1C 


OBEF, 0942, OAE 7,0892, 0BA6,0C8A 


TEMP 


0CB9 


0CA9,0CB0,0C83 


TEMPB 


08A2 


088 F, 0891, 0893 


TEMPS 


07C8 


0767, 076E, 0770,0780, 07AB.07AE, 0701, 07EA,07FF,0809, 
081 1,08 10, 081F,082C, 0636, 0845, 0853,0856,0*78 


TERM 


0987 


0964,0967 


TSTA 


0825 


0626 


TSTB 


0850 


0627 


TST1 


0628 


0610 


TST2 


063C 


061 E 


TST3 


0652 


061 F 


TST4 


0688 


0620 


TST5 


06B0 


0621 


TST6 


06CA 


0622 


TST7 


06F5 


0623 


TST8 


0780 


0624 


TST9 


07F7 


0625 


TOAA 


082F 


0859 


TOAB 


083 A 


0834 


TO AC 


0853 


0836 


TOBA 


0863 


0867,0887,069F 


T0B6 


0860 


0865 


TOBC 


087B 


OB8A 


TO BO 


0880 




TO BE 


088C 


0863 


TOBF 


089A 


0874,0886 


T01A 


0630 


0639 


TO 2 A 


0644 


0650 


TO 3 A 


0659 


0677 


T03A1 


0666 


0674 


TO 38 


066F 


0650 


OATE 


02JAN66 


WAY 66 01 JUL 66 15N0V66 03APR67 


EC NO. 


415490 


4154908 415490C 419643 4196430 
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T03C 

T04A 

T04A1 

TO 40 

T05A 

T05C 

TO SO 

TO 6 A 

T06B 

T06C 

TO 60 

T06E 

T07A 

TO 8 A 

T08A1 

T0BA2 

T08B 

T08C 

TO 80 

T08E 

T08F 

T08X1 

TO 9 A 

T09B 

T09C 

T3CTI 

VCHNL 

WAIT 

HAITI 

WAIT2 

HAIT3 

WAIT* 

MAS 

NCNT 
X16 



0668 
068 F 
0698 
06A5 
06B6 
06BA 
06BE 
06C0 
0601 
0603 
0608 
06E9 
06FC 
072F 
0768 
075A 
075C 
0766 
0768 
0790 
0792 
079A 
0802 
0800 
0810 
0679 
07C0 
0AE6 
OAFC 
0B01 
0B05 
0810 
OBEE 

0B1E 
0BA6 



066C 
06A0 
06AA 
0693 

06C3 



06E6.06F2 

06E7 

06CE.06F0 

06E0.06ES 

070E 

0763 

0756 

074F 

073 A» 0766 

07SF 

0723,076C,07T1 

07BC 

07B7 

0792,0786 

0821 

0807 

0808 

0636* 0659, 06*58, 065E,06?5,068C,068F,0691 ,0694. 06AB 

073F, 0761 ,0766,0806, 0837 

05EE,08F3,0&F9.0915,092F,OA18,OB37 
0807 

OAFC 

0668,0800,0851,0866 

0737, 0779, 079E.O7AF, 0616, 084B,0A83,OB2E,0B7E,0COB, 

0C1C,0C23,0C41,0C48 

OAF 8, 0805,0878 

088E 



DATE 
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2. REQUIREMENTS 



2.1 
2.2 



PROGRAM REQUIREMENTS 
EQUIPMENT REQUIREMENTS 



3. OPERATING PROCEDURE 



PAGE 

1 
1 

1A 



3.1 PROGRAM LOADING 

3.2 PROGRAM OPERATION 

3.2.1 PROGRAM CONTROL OPTIONS - FUNCTION 

3.2.2 ROUTINE SELECTION - FUNCTION 1 

3.2.3 COLUMN COUNT CONTROL, ROUTINES 6+7, FUNCTION 10 

3.2.4 ERROR PRINT CONTROL, FUNCTION 11 

3.2.5 SPECIAL SWITCH FUNCTION, ROUTINES 6*7 

3.3 HALTS 

3.3.1 NORMAL HALTS 

3.3.2 ERROR HALTS 

3.4 TERMINATION 

3.5 RESTART 



4. PRINTOUTS. 



4.1 
4.2 



STATUS MESSAGES 
ERROR MESSAGES 



COMMENTS 



5.1 ROUTINE DESCRIPTION 

5.2 SERVICE SUBROUTINES 

5.3 MACHINE DISCOVERED ERRORS 

5.4 ERROR CHECKING BY ROUTINE 

6. APPENDIX 7A 



1. PURPOSE 

TO CHECK THE OPERATING PERFORMANCE OF THE 2501 READER AND THE 1442 MOD 5 
PUNCH. THE PUNCH ROUTINES HILL RUN ON ANY 1442, BUT MILL CHECK ONLY 
THOSE FUNCTIONS WHICH ARE AVAILABLE ON 1442 MOD 5. 

2. PREREQUISITES 

2.1 THIS TEST MUST BE RUN UNDER CONTROL OF DIAGNOSTIC MONITOR II. 

2.2 THE FOLLOWING EQUIPMENT IS REQUIRED 

1. 1131 CPU. 

2. 2501 CARD READER. 

3. 1442 CARD PUNCH. 



DATE 
EC NO. 



15APR67 
419605 



15JUN67 
420317 



15FEB68 
420403 



26AUG68 
4204C3A 



PROG ID 
PAGE 



030E-* 
1 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
2501 READER/1442 MOD 5 PUNCH FUNCTION TEST 



PART NO. 2243552 
PAGE 1A 



3. OPERATING PROCEOURE 



3.1*** PROGRAM LOADING 



STANDARD MONITOR LOADING PROCEDURES APPLY 

THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR 

DETAILS. 

1. SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEFT MARGIN. 

2. SET BIT SWITCH 15 OFF - LOAD AND GO 

ON - TO SPECIFY OPTIONS BEFORE RUNNING. 

IF HALT AFTER LOADING, SELECT PROGRAM 
OPTIONS THEN TURN OFF HALT SWITCH OR 
FOLLOW NORMAL RESTART PROCEDURE (SECTION 
3.51. 

3. LOAD DIAGNOSTIC MONITOR AND THIS PROGRAM. 

4. SELECT PROGRAM OPTIONS, IF DESIRED. 



3.2*** PROGRAM OPERATION. 

THESE OPERATING PROCEDURES APPLY TO SINGLE PROGRAM OPERATION ONLY. 
FOR OVERLAP OPERATION, REFER TO SECTION 3.2.3 OF THE 1130 DIAGNOSTIC 
MONITOR II DOCUMENTATION. 

NOTE TO RUN 1442 IN OVERLAP WITH THE 2501, USE 1442 TIMING TEST. THE 

2501/1442 TEST MUST BE LOADED FIRST. SELECT THE DESIRED 2501 ROUTINE 
BEFORE STARTING THE 1442. ROUTINES IN THIS TEST WILL NOT OPERATE 
PROPERLY. 



TIMING FROM 1442 TIMING TEST WILL NOT BE ACCURATE WHEN THE TEST IS 
OVERLAPPED. 



3.2.1 PROGRAM CONTROL 



FUNCTION 



1. 
2. 



SET SWITCHES 0-7 TO 01. 

SET SWITCHES 8-15 AS DESIRED. 



SW 



FUNCTION 



8 RESTART 

9 ROUTINE START MESSAGE 

10 LOCK ON FUNCTION 

11 LOOP PROGRAM 

12 LOOP ON ERROR 

13 BYPASS ERROR PRINTOUT 

14 HALT ON ERROR 

15 HALT 



PRESS INT REQ KEY ON CONSOLE. 

** 
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3.2.2 ROUTINE SELECTION - FUNCTION 1 

THE SELECTED ROUTINE MILL LOOP UNTIL A NEW ROUTINE IS SELECTED. 

1. TO SET ROUTINE SELECTION 

A. SET SWITCHES 0-7 TO 41. 

B. SET ROUTINE NUMBER IN SWITCHES 12-15. 



RTN 



DESCRIPTION 



1 


PUNCH ROTATE PATTERN 


NORMAL R0UT1NES- 


2 


READ ORTATE PATTERN 


. THE PROGRAM STARTS WITH 


3 


READ COLUMN COUNT CONTROL 


ROUTINE 1. RUNS EACH 
. ROUTINE IN SEQUENCE 

THEN TERMINATES AFTER 
, ROUTINE 3. 


* 


GANG PUNCH 


. OPTIONAL ROUTINES 


5 


READ GANG PUNCHED DECK 


, THESE ROUTINES RUN 


6 


PUNCH SELECTEO PATTERN 


. ONLY IF SELECTED. 


7 


READ SELECTED PATTERN 




8 


REPRODUCE 




9 


REPLACE ROTATE PATTERN 





C. PRESS INT REO KEY ON CONSOLE. 



2. TO RESET ROUTINE SELECTION, SET AS IT SELECTING ROUTINE ZERO. 

3.2.3 COLUMN COUNT CONTROL, ROUTINES 6*7. FUNCTION 10. 

/ 
THIS FUNCTION ALLOWS SELECTION OF THE NUMBER OF COLUMNS PUNCH OR 
READ IN ROUTINES 6+7. THE 0ES1RED NUMBER OF COLUMNS IN BINARY 
IS SET IN SWITCHES 8 - 15. IF NO ENTRY IS MADE, OR THE FUNCTION 
CLEARED, 80 COLUMNS ARE ASSUMED. 

1. SET SWITCHES 0-1 TO 10. 

2. SET PROGRAM LOAD SEQUENCE NUMBER IN SW 4-7. 

3. SET THE NUMBER OF COLUMNS OESIREO IN BINARY IN SW 8-15. 

4. PRESS INT REQ KEY. 

*• 

3.2.4 ERROR PRINT CONTROL, FUNCTION 11 

THIS FUNCTION PROVIDES CONTROL OF DATA COMPARE ERROR PRINTOUTS. 
IF THIS FUNCTION IS SET TO ZERO, ALL ERRORS WILL PRINT FOR EACH 
CARD. IF IT IS SET TO ANY OTHER VALUE, ONLY THE FIRST ERROR IN 
EACH CARD IS TYPED. 

1. SET SW 0-1 ON. 

2. SET PROGRAM LOAD SEQUENCE NUMBER IN SW 4-7. 

3. IF ONLY ONE MESSAGE PER CARD IS DESIRED, SET ANY VALUE IN 
SW 8-15. 

4. PRESS INT REQ KEY. 

*• 
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3.2.5 SPECIAL SWITCH FUNCTION, ROUTINES 6 +7. 

ROUTINES 6+7 CALL FOR THE SELECTEO PUNCH PATTERN TO BE PLACED 
IN THE SWITCHES. SWITCHES 0-11 REPRESENT PUNCH ROWS 12-9 
RESPECTIVELY, AND SWITCH 12 SIGNALS THAT THE SETTING IS COMPLETE. 

3.3«*» PROGRAM HALTS 
3.3.1 NORMAL HALTS 



.HALT NO 
.(B REG) 


DESCRIPTION 


RESTART 
ACTION 


. 3001 . 
. 3002 


PROGRAM STOP OR ADDRESS STOP 
HALT ON ERROR 


PRESS START 

DISPLAY MODE-PRESS START. 
RUN MODE-PRESS START 



3.3.2 ERROR HALTS 



HALT NO. 
(B REG). 


DESCRIPTION 


RESTART 
ACTION 


30FI . 


CHECK SUM ERROR ON FIRST 
CARD OF LOADER 


RELOAD 


30F2 


REAOER DSW ERROR WHEN 
LOAOING LOADER 


RELOAD 


30F3 . 


CARD 2 OF LOAOER DID NOT 
LOAD 


RELOAD 


30F4 


CAN NOT CLEAR CORE - OUE TO . 
ERROR IN ADDRESSING UPPER 
CORE. 




30F5 


READER CHECK WHEN LOADING 
MONITOR OR TEST PROGRAM 


NPRO THEN PLACE CARDS 
RUN OUT IN FRONT OF 
REMAINING DECK AND PRESS. 
START. 


30F6 


MONITOR DID NOT LOAD 


RELOAO 


30F7 


, CHECK SUM WHEN LOAOING 
MONITOR 


RELOAD 


30F8 


REAOER NOT READY 


MAKE READER READY 


30 F9 


INVALID INTERRUPT WHICH HILL 
NOT RESET 


PRESS RESET AND START 


30FA 


CONSOLE PRINTER HANG UP - 
BUSY WILL NOT GO OFF 


FIX THE CONSOLE PRINTER . 
OR NOP THIS WAIT 
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3.**** PROGRAM TERMINATION 

IF LOOP PROGRAM HAS NOT BEEN SPECIFIED THE PROGRAM HILL TERMINATE 
AT THE END OF ROUTINE 3. ROUTINE * THRU A HILL ONLY RUN 
SELECTEO. 

IF ANY ROUTINE IS SELECTED THAT ROUTINE HILL LOOP AND HILL NOT 
TERMINATE. 



*. 



3/5*** RESTART 

1. SET SHITCHES 0-7 TO 01. 

2. TURN ON SWITCH S. 

3. SET DESIRED CONTROL IN SWITCHES 9-1*. 
*. PRESS INTERRUPT REQUEST KEY. 

•••••*•*«* . 
PRINTOUTS 

ALL PRINTOUTS ARE IN THE STANDARD FORMAT. 



APPNN OORR A AAA 

OR 

EPPNN OORR AAAA 

WHERE 



I MESSAGE) 

(MESSAGE! 

A IDENTIFIES STATUS MESSAGES 
E IDENTIFIES ERROR MESSAGES 
PP IS THE PIO OF THE PROGRAM CAUSING THE MESSAGE 

THIS WILL BE EITHER 00 FOR MESSAGES 
ORIGINATED BY THE MONITOR OR 
OE FOR MESSAGES ORIGINATED BY 
THIS PROGRAM. 



RR 
AAAA 

MESSAGE 

MMMM 

*.!•*• STATUS MESSAGES 



IS THE MESSAGE SEQUENCE NUMBER 

IS THE ROUTINE NUMBER 

IS THE AOORESS OF THE ROUTINE 

IS ANY VARIABLE INFORMATION 

is tjhe hachihe type- 



AOOOO 



A0001 



HUM P1D ADRS RELF 
XXXX XXXX XXXX XXXX 



LD 



THIS MESSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM 
(EXCEPT MONITOR), THE MESSAGE GIVES THE LOAD SEQUENCE NUMBER, 
THE PROGRAM ID, THE ADDRESS INTO WHICH THE PROGRAM HAS LOADED, 
AND THE RELOCATION FACTOR. 

SHl PID 

;*jcxx. t*xx"\ 

THIS MESSAGE IS PRINTED EACH TIME A VALID SWITCH ENTRY IS READ 
BY THE MONITOR. THE MESSAGE CONTAINS THE SWITCH SETTING READ 
TOGETHER WITH THE PROGRAM ID OF THE PROGRAM INTO HHICH THE 
CONTENTS OF SHITCHES 8-15 WERE STORED. IF THE SWITCH ENTRY 
CALLED FOR HALT OF ANY PROGRAM THE WORD HALT WILL FOLLOW THE 
MESSAGE. 
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AOEOO OOOR AAAA 



ROUTINE START MESSAGE - IF SWITCH 9, FUNCTION 0, IS TURNED ON, 
THIS MESSAGE WILL BE PRINTED BEFORE THE START OF EACH ROUTINE. 
R IS THE NUMBER OF THE NEXT ROUTINE AND AAAA IS THE STARTING 
ADDRESS. 



A0E01 OORR AAAA 



LOAD ANO MAKE RDV 

MMMH 



THIS MESSAGE IS PRINTED WHEN THE PROGRAM IS INITIALIZING A 
MACHINE IN ANY ROUTINE. LOAD THE PROPER CARDS IN THE 
MACHINE AND PRESS START. 



A0E02 OORR AAAA 



NRDY 
MMMM 



THE PROGRAM IS WAITING FOR READY ON A MACHINE BEFORE 
INITIATING AN OPERATION. PRESS START. IF THE MESSAGE 
PERSISTS EVEN THOUGH THE READY LIGHT ON THE DEVICE IS ON, 
THE NOT READY BIT 1 151 IN THE DSW IS PROBABLY STAYING ON. 



A0E03 OORR AAAA 



LAST CARD 
MMMM 



THE LAST CARD BIT WAS ON THE DSW SENSEC ON THE LAST OP COMPLETE 
INTERRUPT. THIS SHOULD OCCUR ONLY ON THE OPERATION AFTER THE 
START KEY WAS DEPRESSED WITH THE HOPPER EMPTY AND A CARD IN 
THE PREREAD STATION. IF THIS MESSAGE OCCURS AT ANY OTHER TIME, 
CHECK PROPER OPERATION OF DSW BIT 3. 



AOEO* 0006 AAAA 



SET PATT IN SW 0-11 THEN TN SW 12. 



THIS MESSAGE FROM ROUTINE 6, 'PUNCH SELECTED PATTERN* CALLS 
FOR THE OPERATOR TO SET THE DESIRED PATTERN IN THE SNITCHES. 
SWITCHES 0-11 REPRESENT PUNCH ROWS 12-9 RESPECTIVELY. WHEN 
THE SETTING IS COMPLETE, TURN ON SWITCH 12 TO SIGNAL THE 
PROGRAM. PUNCHING WILL THEN START. IF THE SWITCH SETTING 
IS CHANGED, THE PATTERN WILL CHANGE SO LONG AS SWITCH 12 IS ON. 
IF SWITCH 12 IS TURNED OFF, ANO THE PATTERN CHANGED, PUNCHING 
WILL STOP UNTIL SWITCH 12 IS AGAIN TURNED ON. 



A0E05 0007 AAAA 



SET PATT IN SW 6-1 I THEM TN SH 12 



THIS MESSAGE FROM ROUTINE 7, 'READ SELECTEO PATTERN* CALLS 
FOR THE OPERATOR TO SET THE PATTERN OF THE DECK HE INTENOS 
TflfVSE INTO THE BIT SWITCHES. SWITCHES 0-11 REPRESENT ROWS 
12-9 RESPECTIVELY. WHEN THE SETTING IS COMPLETE, TURN ON 
SWITCHf 12 TO SIGNAL THE PROGRAM. THE PROGRAM WILL READ CARDS, 
COMPARING THE DATA READ TO THE BIT SWITCH SETTING. NO PROVISION 
IS MADE FOR CHANGING THE SWITCHES EXCEPT AT THE BEGINNING OF 
ROUTINE 7. 
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4.2»»* ERROR MESSAGES 

THE DSW IS CHECKED FOR ABSOLUTE CORRECTNESS AT ALL TIMES. IF AN 
ERROR IS DETECTED ONE OF THE MESSAGES BELOW WILL INDICATE THE 
PROBLEM. IT IS LEFT TO THE OPERATOR TO ANALYZE THE OSW FOR THE 
SPECIFIC PROBLEM AREA. 



»*»*»»*»*»*»»**»««*»»«»»»**********»»»»»»***•»**•*•* 



• 




THE 2501/14*2 DSW 




*— — 

• 








• 


BIT 






• 





READ COLUMN ( 1*42 ) 




• 


1 


PUNCH COLUMN (1442) 




« 


2 


ERROR 




• 


3 


LAST CARD 




• 


4 


OPERATION COMPLETE 




• 


5 


NOT USED 




• 


6 


NOT USED 




« 


7 


NOT USED 




• 


B 


NOT USEO 




• 


9 


NOT USED 




* 


10 


NOT USED 




• 


11 


NOT USED 




• 


12 


NOT USED 




• 


13 


NOT USED 




• 


1* 


BUSY 




• 


15 


BUSY OK NOT READY 





«»»«**»»»»»*»»»****»*»»**•»»*»»»*»****»***»»**»*»*»• 



E0001 SUS INVLD 

XXXX 

THE SETTING OF SWITCHES 4-7 DID NOT EQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PROGRAM IN CORE. 

E0003 OVR CORE 

THE PROGRAM WHICH THE LOADER WAS ATTEMPTING TO LOAD 
EXCEEDED AVAILABLE CORE. LOADING WAS TERMINATED. 

E0004 CKSUM 

a check sum error was detected while loading a test program, 
this error occurs under any of the following conditions. 

1. a card is missing or is out of sequence. 

2. there is an extra card in the deck. 

3. the punched Information on the card is not correct. 

4. data was lost or picked up due to a machine malfunction. 

5. due to a cpu malfunction, the check sum was not 
correctly calculated. 

when this error occurs attempt to reload the program. 



DATE 
EC NO. 



15APR67 
419605 



1 5 J UN 67 
420317 



15FEB68 
420403 



26AUG68 
420403A 



PROG ID 
PAGE 



030E-» 

4 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
2501 READER/1442 MOO 5 PUNCH FUNCTION TEST 



PART NO. 2243552 
PAGE 4A 



E0005 OOON XXXX 

THIS ERROR WILL OCCUR IS AN INTERRUPT OCCURS* BUT THE ILSW 
WAS NOT CORRECT. N IS THE INTERRUPT LEVEL AND XXXX IS THE 
ILSW. THIS PRINTOUT WILL ONLY OCCUR IF THE INTERRUPT IS RESET 
BY A BOSI. NO ATTEMPT IS MADE BY THE ERROR ROUTINE TO RESET 
THE REQUEST BIT. 



E0E01 OORR AAAA 



WAS S/B DSW ERR LEVEL 4 
DDOD DDDD MMMM 



AN UNEXPECTED CONDITION HAS BEEN DETECTED IN THE DSW FOR 
MACHINE (MMMM) ON INTERRUPT LEVEL 4. DATA MODIFIERS (DDDD) 
SHOW THE DETECTED DSW, AND WHAT IT SHOULD BE, IN HEX. 



E0E02 OORR AAAA 



WAS S/B DSW ERR LEVEL 
DDDD DDDD MMMM 



SAME AS E0E01 EXCEPT FDR LEVEL 

E0E03 OORR AAAA NO INTRPT 

MMMM 

AN OPERATION WAS STARTED ON THE MACHINE (MMMM) AND 
NO OP COMPLETE INTERRUPT WAS RECEIVED DURING A 15 SECOND 
TIMEOUT. THE ROUTINE RR WILL BE STARTED AGAIN FROM THE 
BEGINNING. THIS MESSAGE INDICATES A FAILURE OF EITHER THE 
INTERRUPT GENERATION CIRCUITS OR THE READY CIRCUITS. 



E0E05 OORR AAAA 



WAS S/B OSW ERR INITIALIZING 
Mt44 4444 MMMM 



THE DSW FROM MACHINE (MMMM) WAS RESET, THEN SENSED BEFORE 
ANY OPERATION WAS STARTED IN ROUTINE (RR), AND AN 
UNEXPECTED CONDITION WAS PRESENT. DATA MODIFIERS (DDDD) 
SHOW THE DETECTED DSW, AND WHAT IT SHOULD BE IN HEX. THE 
PROGRAM WILL REPEAT THE RESET ANO SENSE DSW OPERATION 
CONTINUOUSLY, AND RETYPE THE MESSAGE EVERY 15 SECONDS. NO 
OPERATION WILL BE STARTED UNTIL THE INITIAL DSW IS CORRECT. 



E0E06 OORR AAAA 



WAS S/B COL COUNT ERR. 
DDDDD DODDO 1442 



AFTER PUNCHING A CARD, A COMPARISON WAS MADE OF THE 
ADDRESSES OF THE PUNCH TERMINATOR AND THE LAST COLUMN 
PUNCHED. THE DATA MODIFIERS (DDDD) SHOW THE NUMBER OF 
COLUMNS PUNCHED, ANO THE NUMBER WHICH SHOULD HAVE PUNCHED, 
IN DECIMAL. A PUNCH CHECK WILL NORMALLY PRODUCE THIS " 
ERRORV SINCE PUNCHING IS STOPPED AT THE COLUMN WHICH YIELDS 
THE CHECK. 



E0E07 OORR AAAA 



WAS S/B COL COUNT ERR 
DDDDD DDDDD 2501 



AFTER READING * CARD,? THE READ AREA IS CHECKED TOR THE 
PROPER NUMBER OF CHARACTERS. THE DATA MOOIFIERS (DDDDD) 
SHOW THE NUMBER READ, AND THE NUMBER EXPeCTEDV THIS 
MESSAGE COULD BE CAUSED BY FAILURES OF THE CR WORD COUNT 
REGISTER, CYCLE STEAL CIRCUITRY, OR THE CR ADDRESS REGISTER. 
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E0E08 OORR AAAA HAS S/B COL DATA ERR 

DODO DODO DDDOO 
AFTER READING A CARD, THE DATA READ DOES NOT EQUAL THE 
DATA EXPECTED. THE DATA MODIFIERS (DDOOI SHOW THE 
DATA READ, AND THE DATA EXPECTED IN HEX. AND THE COLUMN 
NUMBER IN DECIMAL. THIS ERROR CAN COME FROM ROUTINES 
2. 5 OR 7. NORMAL TRANSFER IS INTO CORE BITS 0-11. CORE BITS 12-15 
SHOULD BE ZEROS. 

5. COMMENTS 

5.1*** ROUTINE DESCRIPTIONS 

THERE ARE TEN TEST ROUTINES IN THE 2501/1442 FUNCTION TEST. 
THE FIRST THREE ARE 'NORMAL ROUTINES' * IE THEY ARE RUN WHEN NO 
ROUTINE SELECTION IS MADE, AND CONSTITUTE A COMPLETE FUNCTIONAL 
CHECK OF THE 2501 AND 1442. ROUTINES 4, 5. 6, 7 AND A RUN ONLY IF 
SELECTED, AND PROVIDE A MEANS OF EXERCISING CERTAIN FUNCTIONS. 
AND/OR BIT LINES. ROUTINES 8 AND 9 ARE UTILITY ROUTINES. 
ALL OF THE TEST ROUTINES FOLLOW THE SAME GENERAL ORGANIZATION. 
UTILIZING THE SERVICE SUBROUTINES. 

GENERAL ORGANIZATION OF TEST ROUTINES 

1. INITIALIZE THE DEVICE (INPCH, INR0R1. 

2. SET UP DATA FOR PUNCHING OR COMPARE. 

3. CHECK STATUS. (CHK14, CHK25). 

4. INITIATE I/O OPERATION IPNCH, RDACDI 

5. CHECK DATA. 

6. SET UP DATA FOR NEXT OPERATION. 

7. RETURN TO (3). CHECK STATUS. 



5.1.1 OPERATION OF NORMAL ROUTINES 



A. ROUTINE 1- 



PUNCH ROTATING PATTERN. 



THIS ROUTINE PUNCHES A ROTATING PATTERN IN 80 COLUMNS. 
THE PATTERN REMAINS FIXED IN STORAGE AND THE BEGINNING 
ADDRESS IS INCREMENTED THRU THE FIRST 79 POSITIONS OF 
THE 160 WORD FIELD. THE AODRESS IS THEN RE-INITIALIZED. 
ANO THE PROCESS REPEATEO. 



B. ROUTINE 2- 



READ ROTATING PATTERN. 



THIS ROUTINE READS THE DECK PUNCHED BY ROUTINE 
ONE. DATA IS COMPARED IN THE SAME MANNER AS IT MAS 
PUNCHED. 



C. ROUTINE 3- 



READ COLUMN COUNT CONTROL 



THIS ROUTINE READS CARDS. VARYING THE WORD COUNT FROM 1 TO 
80. THE LENGTH CHECK IS PERFORMED BY THE RDACD SERVICE 
SUBROUTINE. 



ROUTINE 



WNG PUNCH. 



THIS ROUTINE READS ONE CARD IN THE 2501 AND PUNCHES THAT 
DATA CONTINOUSLY ON THE 1442. THIS ALLOWS PUNCHING ANY 
PATTERN FOR ADJUSTMENT OR SCOPING PURPOSES. 



E. ROUTINE 5- 



— READ GANG PUNCHED DECK. 



THIS ROUTINE READS THE FIRST CARD INTO A COMPARE AREA. 
AND READS THE REMAINING CARDS INTO THIS READ AREA, COMPARING 
THE DATA TO THAT FROM THE FIRST CARD. THIS ALLOWS REAOING 
ANY PATTERN FOR ADJUSTMENT OR SCOPING PURPOSES. 
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F. ROUTINE 6— 



PUNCH SELECTED PATTERN. 



this routine reads the console switches ano places the 
setting of switches 0-11 in the punch area, switch 12 
signals the program that the setting is complete. the 
setting may be changed at any time, and the punched 
pattern will change on the next card. if switch 12 is left 
on, punching will continue. if switch 12 is off ano the 
pattern changeo, punching is stopped until the pattern is 
set ano switch 12 turned on. the number of columns 
punched may be varied, by hak1mg an entry to function 10, 
with the number of columns (in binary) in the data 
switches. 



G. ROUTINE 7 



READ SELECTED PATTERN. 



THIS ROUTINE READS THE CONSOLE SWITCHES, AND COMPARES THE 
DATA READ TO THE SETTING OF SWITCHES 0-11. THIS SETTING 
IS MADE IN THE SAME MANNER AS IN ROUTINE SIX, BUT WILL NOT 
CHANGE EXCEPT AT THE BEGINNING OF THE ROUTINE. THE NUMBER 
OF COLUMNS READ ANO CHECKED MAY BE VARIED, AS IN ROUTINE 

six. 



H. ROUTINE 8 



REPRODUCE. 



THIS ROUTINE WILL REPRODUCE A DECK FROM THE 2501 TO THE 
1442. ALL CHECKS ARE PERFORMED IN TME SERVICE SUBROUTINES. 



I. ROUTINE 9 



— REPLACE ROTATE PATTERN. 



THIS ROUTINE READS ONE CARD FROM THE 2501 AND REPLACES THE 
DATA IN THE ROTATE PATTERN TABLE WITH THAT READ FROM THE 
CARD. LINKAGE IS MADE DIRECTLY TO ROUTINE ONE AND 
NORMAL TESTING FOLLOWS AS IF NO SELECTION HAD BEEN MADE. 



J. ROUTINE A 



READ VARIABLE OELAV. 



THIS ROUTINE CHECKS THE 2501 FEED MECHANISM WITH VARYING 
DELAY BETWEEN READ COMMANDS. IT BEGINS READING CARDS 
WITH MINIMUM DELAY, AND INCREMENTS THE DELAY XX MSEC AFTER 
EACH CARO. IF DESIRED. A FACTOR MAY BE SET IN THE CONSOLE 
SWITCHES. IF ANY CONSOLE SNITCHES ARE SET, A DELAY OF THEIR 
VALUE TIMES XX MSEC IS GENERATED. IF THE CONSOLE SWITCHES 
ARE ALL OFF, THE DELAY FACTOR IS INCREMENTED FROM 1 BY 1 
UNTIL THE LAST CARD IS READ. 

5.2*** SERVICE SUBROUTINES 

A. CNTRL — SEQUENCE CONTROL 

THIS SUBROUTINE CHECKS FOR ROUTINE SELECTION, AND CONTROLS 
THE SEQUENCE IN WHICH THE TEST ROUTINES ARE RUN. 



B. 0SN1A 



LEVEL 1442 INTERRUPT SERVICE 



THIS SUBROUTINE SERVICES THE PUNCH COLUMN INTERRUPT FROM THE 
1442. IT ISSUES THE PUNCH COMMAND, INCREMENTS THE PUNCH 
ADDRESS, AND CHECKS THE DSW FOR ERRORS. IT IS NOT POSSIBLE 
TO TYPE THE ERRORS DURING PUNCHING, SO THEY ARE ACCUMULATED 
FOR CHECKING AFTER OP COMPLETE. 



0SW4A 



LEVEL 4 1442 INTERRUPT SERVICE 



THIS SUBROUTINE SERVICES THE OP COMPLETE INTERRUPT FROM THE 
1442. IT SAVES THE DSW AND SETS UP THE LINKAGE FOR RETURN 
TO THE DSW ANALYSIS SUBROUTINE. 
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D. DSW4B LEVEL 4 2501 INTERRUPT SERVICE 

THIS SUBROUTINE PERFORMS THE SAME FUNCTIONS AS DSW4A, EXCEPT 
FOR THE 2501. 



E. DSWAN 



DSH ANALYSIS 



THIS SUBROUTINE IS ENTERED ON RETURN FROM EITHER 2501 OR 
1442 OP COMPLETE INTERRUPT. IT FIRST CHECKS FOR ANY LEVEL 
DSH ERRORS AND THEN ANY LEVEL 4 DSH ERRORi GENERATES THE 
ERROR MESSAGE, IF ANY, AND RETURNS TO THE TEST ROUTINE. 

F. TYPE AND E TYPE MESSAGE OUT 

THIS SUBROUTINE CONTAINS THE INSTRUCTIONS NECESSARY TO LINK 
TO MONITORS LOG ROUTINES, AND THE MESSAGE AREA. 



G. WAIT 



INTERRUPT WAIT. 



THIS SUBROUTINE IS ENTERED IMMEDIATELY AFTER INITIATING 
A READ OR PUNCH OPERATION. IT CONTAINS A TIMING LOOP, 
WITH A RETURN TO MONITOR TO ALLOW OTHER PROGRAMS TO 
OPERATE IN OVERLAP. IF NO OP COMPLETE INTERRUPT OCCURS, 
THE LOOP WILL TIME OUT AND THE SUBROUTINE WILL GENERATE 
THE NO INTERRUPT MESSAGE. WHEN THE INTERRUPT OCCURS, 
IT WILL CHECK THE ROUTINE SELECTION SWITCH. IF A NEW 
ROUTINE IS SELECTED, IT WILL LINK TO CONTROL. IF NOT, IT 
WILL RETURN, VIA MONITOR, TO OSWAN. 



H. INPCH, INRDR 



INITIALIZE PUNCH AND INITIALIZE READER 



THE PROPER SUBROUTINE IS LINKED TO FROM EACH TEST ROUTINE 
WHICH USES THE DEVICE, BEFORE ANY OPERATION IS STARTED ON 
THAT OEVICE. IT FIRST GENERATES THE LOAD MESSAGE, THEN 
ISSUES A SENSE DSW COMMAND TO RESET THE DEVICE, THEN 
ANOTHER SENSE DSW. THE SECOND DSW IS CHECKED FOR ANY 
BITS OTHER THAN NOT READY OR LAST CARD. IF ANY ARE 
PRESENT A DSW ERROR MESSAGE IS GENERATED AND THE CHECK 
RETRIED. THE SUBROUTINE WILL NOT RETURN TO THE TEST 
ROUTINE UNTIL A PROPER DSW IS SENSED. 

1. CHK14, CHK25. CHECK STATUS 

THE PROPER SUBROUTINE IS LINKED TO FROM THE TEST ROUTINE 
BEFORE EACH OPERATION IS STARTED ON THE DEVICE. IT CHECKS 
THE DSW WORD FROM THE LAST OP COMPLETE FOR LAST CARD, ANO 
GENERATES THE MESSAGE AND LINKS TO CNTRL IF IT IS ON. IF 
NOT, IT CHECKS FOR READY CONDITION, WAITS UNTIL THE DEVICE 
IS READY, THE RETURNS TO THE TEST ROUTINE. 

J. PNCH PUNCH A CARD 

THIS SUBROUTINE CONTAINS THE INSTRUCTIONS NECESSARY TO SET 
UP THE PUNCH TERMINATOR, INITIATE THE PUNCH OPERATION, ANO 
CHECK THAT PUNCHING THE PROPER NUMBER OF COLUMNS WERE 
PUNCHED. IF AN ERROR MESSAGE, BEFORE RETURNING TO THE TEST 
ROUTINE. 



K. ROACD 



READ A CARD 



THIS SUBROUTINE FIRST FILLS THE READ IN AREA MITH WORDS 
CONTAINING ONLY BIT 15, FOR LENGTH CHECKING. IT THEN 
INITIATES A READ OPERATION AND LINKS TO WAIT. ON RETURN FROM 
OP COMPLETE INTERRUPT, IT CHECKS THAT THE PROPER NUMBER OF 
COLUMNS WERE TRANSFERRED, GENERATES THE THE ERROR MESSAGE, 
IF ANY, AND RETURNS TO THE TEST ROUTINE. 
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5.3*»* MACHINE DISCOVERED ERRORS 

THE FOLLOWING ARl EXAMPLES OF WHAT MESSAGES TO EXPECT FOR CERTAIN 
MACHINE CHECKS. THE LIST IS NOT COMPLETE BUT IS SUPPLIED TO 
FAMILIARIZE THE USER WITH THE ERROR CHECKING PHILOSOPHY. 

1. READ CHECK WHILE RUNNING ROUTINE 2 

E0E01 0002 04EA WAS S/B OSW ERR LEVEL 4 

2801 0801 2501 
(THE DSW SHOWS AN ERROR BIT) 



E0E08 0002 06EA 



WAS S/B COL DATA ERR 
4020 4060 00010 



(THE DATA DID NOT COMPARE BECAUSE A SEVEN PUNCH 
WAS DROPPED IN COL 10. THIS MAY NOT OCCUR ON A REAO 
CHECK.) 



A0E02 0002 06EA 



NRDY 
2501 



(THE MACHINE WENT NOT READY WITH THE READ CHECK 
TRIGGER ON) 

2. A FEED CHECK WOULD YIELD A DSW ERROR AND NOT READY IN SIMILAR 
FASHION. 

3. PUNCH ECHO CHECK WHILE RUNNING ROUTINE 4 

E0E02 0004 0739 WAS S/B OSW ERR LEVEL 

6003 4003 1442 
(THE LEVEL DSW SHOWS THE ERROR BIT)/ 

WAS S/p OSW ERR LEVEL 4 
2801 00080 1442 
(SO DOES THE LEVEL 4 DSW) 



E0E01 0004 0739 



E0E06 0004 0739 



WAS S/B COL COUNT ERR 
00056 00080 1442 
(THE ERROR OCCURRED IN COL 56, TERMINATING THE 
PUNCHING.) 



A0E02 0004 0739 



NRDY 
1442 



(READY DROPPED DUE TO THE PUNCH CHECK) 

4. FEED CHECK ON 1442 WOULD YIELD DSW ERRORS AND NOT READY IN 
SIMILAR FASHION. 
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EACH ROUTINE OR SUBROUTINE HILL PRODUCE ITS OWN ERROR MESSAGE. 
SINCE EACH OF THE SERVICE SUBROUTINES SERVICE SEVERAL TEST ROUTINES* 
THEIR MESSAGES MAY OCCUR IN ANY TEST ROUTINE. THE FOLLOWING IS A 
LIST OF THE ERROR NESSAGESt AND ITS SOURCE. 



ROUTINE/SUBROUTINE 
DSW ANALYSIS (DSMANI 



MESSAGES 

E0E01 

E0E02 



WAIT FOR INTERRUPT IWA1TI E0E03 

INITIALIZATION ( INPCH, INRDRI E0E05 



PUNCH A CARD (PNCH) 
READ A CARD (ROACD) 
ROUTINES 2, 5, 7 
MONITOR 



E0E06 

E0E07 

E0E08 

E0001 

E0002 
E0003 
E0005 
E0004 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
2501 READER/1442 MOD 5 PUNCH FUNCTION TEST 
5."« EXAMPLE OF ROTATE CARD DECK 



PART NO. 
PAGE 



2243552 
7A 



CARD 1 



I HUH IIHIIHHI | | | mi mini 

> I ■ ■■■■ I IIHIIIH I I I I III HHHI 

!!f!!"!!! , ! , " , "> , «" ,,,, '" ,,,,, »»«HiiiHiiiiiitii«i.iiiiiiuiiiiiiiiiiiii 

iii|Mii|m|iti||j||t|miim|iMmii|iiitmH|i|UMi|iiii|u|i||ii|||g|Hi 
ii]2|2}|im|||||M!|ii|mm2:|m]m}|2;i!2m|2|22|m:II||2:i:m2HIIHl2 

ll!!l||!J12]|3||||l!|ll!|2] 111U3|]1 J Jll]]|313 3 333|3|3 U|3333|3 3|||33 373|||||||3 
44444|I I4444|44||||4|4444|4 14 44444|4 4444 44l|44 4 444 4|4| 4 4 4 14 I 4 1 1 4 4|4||4 4 4 ||||I||4 

«»»5l55|55SS|S55|||||5SiiS|S5JJS5S5|555Si555|55SSS5|5|55SS|SSiS|55|5||S5|||||||5 

iti|itii|i.c|||||iii|.iiiii|iiii tittle t itiii.|tifii|.Gt|ii((||||.iutiit|||||||i 

"I"»n7|7 7|7||||77|7777777|77777777|77 7 77777|7777|7|77|;7 77|77|||77 777||||||l7 

i|iiiiiiii|i|ii||||i|iiiiiiii|iiiiii i i|im tit i|iii|i|iii|n ii|t i|i||i i iimiiii 
|iiiifiiiii||iii|||||iiiiimi|iimsii|nm!ii|u|9|iut|9iM|nlillisliiiiiii 



CARD 2 



nun 

I I llll 



iiiiiiiiiii 



IIHIIIH 



1 1 
1 1 



llll 
I III 



•|MIMS|M|M||||l||MMMMMMMMM|||||||||(l|(l|gMC|M Ml III III Mil 

i ti 1 1 1 ii 1 1 ii 1 1 linn ii 1 1 1 1 1 1 1 ii 1 1 1 1 1 1 1 ii 1 1 1 1 1 1 1 1 ii ii 1 1 1 1 iii i rill .ini i ii 



/ 



HHHI I 
HHHI 
• HIHIlii 

R nam)* nasi, 

■ HIIHIM 

n2|21|JJ22|||||I12|Jl|222232»|22ljn22|22222222|2|22|2232H||22222222|||||||22 
""■l»]33|3||||33|lM|3M33ni|333UM3|3]133M|3|333|3M3|3]|||M3l3|||||||ll 
4444||44444|44||||4|4444|44444444|44444444|4444444|4|444|4444|44|4||444|||||||44 
IM|M|iSli|SSS|||||SSiSS|SSMS]SS|iSM9SM|S]iSSS|:|iSSS|SSSS|M|t||SS|||||||St 

M|iiti|ttt|||||tti|iiiiit|Mtttttt|itteiifi|iiiti|i|t|ti«i||||fftiitti|||||||ii 

I|IMJJI|J?|7||||7)|7J?JJ?7|JIJ7JJ1)|J1J7J;J J J|IIM|7|77|777?|7J|HI?JJ7||IHI|7J 
|MMIMI|t|M||||l|MIIIIM|MMMII|MIMIM|lll|l|lM|lMI|ll|l||Ml|||||||l| I 
**>" I""I|MS|||||MMI1M9|MMMS1|M MM Ml Ml llM Mil I III ill <llt <■■■■■■■•■ f 



CARD 3 
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0160 
0161 
0162 
0163 
0164 



0165 
0166 
0167 
016B 



017A 
018A 
019A 
01AA 
01BA 
01BB 
01BC 
0160 



0000 



********************* t********************** 

* EQUATE TABLE 

* THIS TABLE EQUATES TEST PROGRAM LABELS 

* TO THEIR EQUIVALENT DIAGNOSTIC MONITOR 

* ADDRESSES. 

* 

» i 

* MONITOR ENTRY ADDRESSES 



BEGIN EQU 
START EQU 
ERROR EQU 
LOG EQU 
END EQU 



/0160 BEGIN ROUTINE 

BEGIN+1 SUPERVISOR ROUTINE 

START+1 ERROR LOG ROUTINE 

ERROR+1 STATUS LOG ROUTINE 

LOG+1 END ROUTINE 



* 

*. 

RTNSW EQU 

ERLCK EQU 

LOGBY EOU 

RLCF 

* 

* 



MONITOR CONTROL WORD AODRESSES 



EQU 



END+1 ROUTINE START SW 

ENO+2 LOCK ON ERROR CONTROL 

END+3 I/O BUSY SW ADDRS 

END+4 RELOCATION FACTOR ADORS 



ILO 

IL1 

IL2 

IL3 

IL4 

RQTY 

RQKB 

SVKB 

• 



INTERRUPT TRANSFER VECTOR ADDRESSES 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EOU 
EQU 



/017A 

ILO+16 

1L1+16 

IL2+16 

IL3+16 

IL4+1 

RQTY+1 

RQKB+1 



INTERRUPT LEVEL ZERO 
INTERRUPT LEVEL ONE 
INTERRUPT LEVEL TWO 
INTERRUPT LEVEL THREE 
INTERRUPT LEVEL FOUR 
CONSOLE PRINTER REQUEST 
USE KEYBOARD REQUEST 
KB SERVICE REQUEST 



ORG *+/05DC 

* THE MONITOR USES CORE LOCATIONS 0-05DC. 

* FOR CONTENTS OF THESE ADDRESSES REFER 

* TO THE DIAGNOSTIC MONITOR LISTING. 



******************************************** 
* PROGRAM CONTROL TABLE 

* 



ROUTINE 10 
ROUTINE ADORS 
PROGRAM CONTROL 
ROUTINE SELECTION 



LOOP ADDRESS 
RESTART ADDRESS 
ENTRY SET IN MAINLINE 
IN INTERRUPT 

TERMINATOR 

* 

********************* **«*»-*********«*******« 

* INITIALIZATION AND START 

*****************************»«*•«»**«**»,«,** 



05DC 030E 


PID 


DC 


/030E 


0500 0000 


RIO 


DC 


/OOOO 


05DE 0000 


RAD 


DC 


/OOOO 


050F 0000 


SWO 


DC 


/OOOO 


05E0 0000 


SW1 


DC 


/OOOO 


05E1 0000 


SW2 


DC 


/OOOO 


05E2 0000 


SW3 


DC 


/OOOO 


05E3 1 05EB 




DC 


STRT 


05E4 1 05EB 




DC 


STRT 


05E5 1 05EB 


MLSCF 


DC 


STRT 


05E6 0000 




DC 


/OOOO 


05E7 FFFF 




DC 


/FFFF 



05E8 4480 0160 
05EA 1 05DC 



BGIN 



BSI 

OC 



I 



BEGIN 
PID 



PCT ADDRESS 



30E00020 

30E00030 

30E00040 

30E00050 

30E00060 

30E00070 

30E00080 

30E00090 

30E00100 

30E00110 

3OE00120 

30E00130 

30E00140 

30E00150 

30E00160 

30E00170 

30E00180 

30E00190 

30E00200 

30E00210 

30E00220 

30E00230 

30E00240 

30E00250 

30E00260 

30E00270 

30E00280 

30E00290 

30E00300 

30E00310 

30E00320 

30E00330 

3CE00340 

30E00350 

30E00360 

30E00370 

30E00380 

30E00390 

30E00400 

30E00410 

30E00420 

30E00430 

30E00440 

30E00450 

30E00460 

30E00470 

30E004B0 

30E00490 

30E00500 

30E00510 

30E00520 

30E00530 

30E00540 

30E00550 

30E00560 

30E00570 

30E00580 

30E00590 

30E00600 

30E00610 

30E00620 

30E00630 

30E00640 

30E00650 

30E00660 

30E00670 

30E00680 

30E00690 



05EB 


6100 




STRT LDX 


1 





05EC 


69F0 




STX 


1 


RID 


05E0 


1 6500 


0630 


LDX 


1 I 


0SW1A 


05EF 


6D00 


017A 


STX 


1 1 


ILO 


05F1 


1 6500 


063F 


LDX 


LI 


DSH4A 


05F3 


6D00 


01B8 


STX 


1 1 


1L4-2 


05F5 


1 6500 


064A 


LDX 


LI 


DSW4B 


05F7 


6D00 


01B7 


STX 


LI 


IL4-3 


05F9 


4000 




BSI 




CNTRL 



1442 COL INT 
1442 OPCOMP 
2501 OP COMP 



******»»*****»»********<:*****$*»*,„, j,,,,^^^ 

* SEQUENCE CONTROL ROUTINE 

* THIS ROUTINE CHECKS SW 1 AND CONTROLS 

* THE SEQUENCE IN WHICH TEST ROUTINES 

* ARE RUN. 

* — — — - , . . „ m _ 

* 



05FA OOOO 
05FB C0E4 
05FC 1 4C08 0605 

05FE OODE 
05FF 9015 
0600 1 4C08 060B 

0602 1810 

0603 DODC 

0604 D008 

0605 1 7401 05DD 

0607 C005 

0608 9000 

0609 4480 0164 

060B 1 6580 05DD 
060D 1 C500 0616 
06CF DOCE 

0610 D0D5 

0611 0400 0165 
0613 4480 0161 

0615 OOOA 

0616 0003 



CNTRL DC 
LO 
BSC 



CN10 



* 
CN20 



* 
CN30 



STO 

S 

BSC 

SRA 

STO 

STO 

MDX 
LD 

S 
BSI 

LDX 

LD 

STO 

STO 

STO 

BSI 



I 



/OOOO 

SW1 

CN20.+ 

RID 

RIOCK 

CN30.+ 

16 

SW1 

RIO 

RID,1 
RID 
RTNOM 
END.-Z 



II RIO 

LI RTTBL-1 

RAO 

MLSCF+1 
L RTNSW 
I START 



BR IF NO RTN SELECTD 

SAVE NEW RTN NUMBER 

BR IF VALID RTN 

IF INVALID RTN GO 
TO RTN ONE 

ADV TO NEXT RTN 
CHECK FOR ENO OF 

NORMAL SEQUENCE *1 
ENO OF PROGRAM 

XR1-NEW ROUTINE NUMBER 
FETCH RETURN ADRS 5 
STORE NEW RTN ADDRS 
SET MLSCF FOR RETURN 
SET RTN START SW 
GO TO MONITOR 



0617 


1 


06C6 


0618 


1 


06E4 


0619 


1 


072E 


061A 


1 


073F 


06 IB 


1 


0750 


06 1C 


1 


0791 


0610 


1 


0702 


061E 


1 


082A 


061F 


1 


0843 


0620 


1 


0859 



RIDCK OC 
RTNOM DC 

* 

»— — 

* 

* 

RTTBL DC 
DC 
DC 



LRTN-RTTBL+1 
NRTN-RTTBL+1 



*2 



ROUTINE ADDRESS TABLE 



NORMAL ROUTINES 



NRTN 

« 



RT1 
RT2 
RT3 



DC 
DC 
DC 
OC 
DC 
OC 
DC 



SELECTIVE ROUTINES 



PUNCH ROTATING PATT 
READ ROTATING PATTERN 
READ COL COUNT CONTROL 



RT', 
RT5 
RT6 
RT7 
RT8 
RT9 
RTA 



GANG PUNCH 

READ GANG PUNCHED DECK 
PUNCH SELECTED PATTERN 
READ SELECTED PATTERN 
REPRODUCE ROUTINE 
REPLACE ROTATE PATTERN 
2501 VAR DELAY READ 



0622 OOOO 

0622 OOOO 

0623 1402 



LRTN 

* 

* I/O CONTROL COMMANOS 

* 

BSS E 
FDACO OC /OOOO FEED A CARD 

DC /1402 



30E00700 

30E00710 

30E00720 

30E00730 

30E00740 

30E00750 

30E00760 

30E00770 

30E00780 

30E00790 

30E00800 

30E00810 

30E00820 

30E00830 

30E00840 

30E00850 

30E00860 

30E00870 

30E00880 

30E00890 

30E00900 

30E00910 

30E0C920 

30E00930 

30E00940 

30E00950 

30E00960 

30E00970 

30E00980 

30E00990 

30E01000 

30E01010 

30E01020 

30E01030 

30E01040 

30EO105O 

30E01060 

30E01070 

30E01080 

30E01090 

30E01100 

30E01110 

30E01120 

30E01130 

30E01140 

30E01150 

30E01160 

30E01170 

30E011B0 

30E01190 

3GE01200 

30E01210 

30E01220 

30E01230 

30E01240 

30E01Z50 

30E01260 

30S01270 

30E01280 

30EO129O 

30E01300 

3OE01310 

30E01320 

30E01330 

30E01340 

30E01350 

30E01360 

30E01370 



DATE 
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0624 





0000 


0625 





1401 


0626 


1 


0A32 


0627 





1100 


0628 





0000 


0629 





1703 


062A 





0000 


062B 





4F03 


062C 


1 


09A8 


06 2D 





4E00 


062E 





0000 


062F 





3A00 



PCHST DC /OOOO 

DC /1401 

PUNCH DC HAREA 

DC /1100 

SNS1 DC /OOOO 

DC /1703 

SNS2 DC /OOOO 

DC /4F03 

IREAD DC RAREA 

DC /4E00 

SNSMS DC *-* 

DC /3A00 

************************ 

» INTERRUPT 

*****#*»****»**»♦******* 

* 



START PUNCH 
PUNCH 



SENSE 1442 DSM 

SENSE DSW 

ON 2501 

INITIATE READ 

ON 2501 

REAO CONSOLE SWITCHE 



SERVICE SUBROUTINES 

********************* 



0630 
0631 
0632 
0634 
0635 
06 36 
0638 
06 3 A 
063B 
06 3C 
06 3D 



OOOO 

08F6 

0400 OAEF 

1000 

08F0 

7401 0626 

C400 OAEF 

F01A 

E81F 

D01E 

4C80 0630 



063F OOOO 

0640 08E7 

0641 1 D400 OAFO 

0643 1000 

0644 1 6700 06 5C 
0646 1 6F00 05E6 
0648 1 4C80 063F 



»■ . — 

DSM1A DC 
XIO 
STO 

NOP 

XIO 

MDX 

LO 

EOR 

OR 

STO 

BSC 

* 

* 

* 

DSM4A DC 
XIO 
STO 
NOP 
LDX 
STX 
BSC 



DSW CHECK FOR LEVEL 



064A 
064B 
064C 
064E 
064F 
0651 
0653 



0655 
0656 
0657 
0658 
0659 
065A 
065B 



OOOO 
OBOE 

D400 OAFO 
1000 

6700 065C 
6F00 05E6 
4C80 064A 



4003 
FFF7 
0008 
FFFE 
FFFO 
0050 
OOOO 



*-* 
SNS1 
L MASO 



PUNCH 

PUNCH, +1 

UASO 

K4003 

XERR 

XERR 

DSW1A 



SENSE DSM 

USE FOR TRAP 
PUNCH A COLUMN 
INCRE PUNCH ADOR. 
CHECK FOR LOST OR 
EXTRANEOUS BITS 
ACCUMULATE ALL ERRORS 

RETURN 



DSW CHECK FOR LEVEL 4 1442 



*-* 
SNS1 
L HAS4 

L3 DSM AN 
L3 MLSCF+1 
I DSW4A 



SENSE 1442 DSW 

USE FOR TRAP 

ADR ESS OF ANALYSIS ROUT 

SET MONITOR RETURN 

RETURN 



* 

* 

DSW4B DC 
XIO 
SfO 
NOP 
LDX 
STX 
BSC 



DSW CHECK FOR LEVEL 4 2501 



»-» 
SNS2 
L WAS4 

L3 DSM AN 
L3 MLSCF+1 
I DSM4B 



SENSE DSW 
USE FOR TRAP 



» ■ . . ■■■■ 
* 

K4003 DC 
KFFF7 DC 
K0008 DC 
KFFFE DC 
KFFFO DC 
K0050 DC 
XERR 



DC 



/4003 
/FFF7 
/0008 
/FFFE 
/FFFO 
/0050 




*************************************************** 



30E01380 

30E01390 

30E01400 

30E01410 

30E01420 

30E01430 

30E01440 

30E01450 

30E01460 

30E01470 

30E01480 

30E01490 

30E01500 

30E01510 

30E01520 

30E01530 

30E01540 

30E01550 

30E01560 

30E01570 

30E01580 

30E01590 

30E01600 

30E01610 

30E01620 

30E01630 

30E01640 

30E01650 

30E01660 

30E01670 

30E01680 

30E01690 

30E01700 

30E01710 

30E01720 

30E01730 

30E01740 

30EO1750 

30E01760 

30EO177O 

30E017.80 

30E01790 

30E01800 

30E01810 

30E01820 

30E01830 

30E01840 

30E01850 

30E01860 

30E01870 

30E01B80 

30E01890 

30E01900 

30E01910 

30E01920 

30E01930 

30E01940 

30E01950 

30E01960 

30E01970 

30E019B0 

30E01990 

30E02000 

30E02010 

30E02020 

30E02030 

30E02040 

30EO*050 
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065C COFE 
065D 1 4420 067B 

06 5F 1 C400 OAFO 
0661 F016 
CS62 1 4C98 069C 

0664 E014 

0665 1 4C98 069C 



0667 
0669 
066B 
066C 
066E 
0670 
0672 
0674 



F400 
D400 
6101 
6600 
6700 
6F00 
1 6700 
1 4400 



OAFO 
0AF3 

0112 
OBOC 
OAEE 
0B16 
0AD5 



0676 1 4C80 069C 

0678 0800 

0679 EFFE 
067A 1000 



067B OOOO 
067C 1 F400 067A 
067E 1 4C18 0696 



0680 





CODA 




0681 





F0D3 




0682 


1 


D400 


OAEF 


0684 





CODO 




0685 


1 


D400 


0AF3 


0687 





6102 




0688 





6600 


0111 


06 8 A 


1 


6700 


0B11 


068C 


1 


6F00 


OAEE 


068E 


1 


6700 


0B16 


0690 


1 


4400 


0AD5 


0692 





1010 




0693 





D0C7 




0694 


1 


4C80 


06 7B 



0696 1 C400 OAFO 

0698 1003 

0699 1 4C28 0692 
069B 70E4 



* ANALYSIS ROUTINE FOR DSW 

* 

THIS SUBROUTINE ANALYZES THE DSW 
AFTER ANY LEVEL FOUR INTERRUPT AND 
RETURNS TO THE ROUTINE VIA THE 
ENTRY POINT OF THE WAIT SUBROUTINE 



* 
* 

* 

DSWAN LD 
BSI 

» 

LD 

EOR 

BSC 

* 

AND 
BSC 

* 

EOR 
STO 
LDX 
LDX 
LDX 
STX 
LDX 
BSI 



XERR 
L DSMEO.Z 

L WAS4 

K0800 
I WAIT.+- 

KEFFE 
1 MAIT,+- 

L WAS4 
L 02BE 

1 1 
L2 /0112 
L3 ALVL4 
L3 ALPH2 
L3 ADSWE 
L ETYPE 



LEVEL ERRORS 
BR IF ANY 

LAST DSW 

OP COMP BIT 

BR IF NORMAL LVL 4 



DSW 



BSC I WAIT 



REMOVE L/C + NRDY BITS 
BR IF OTHERWISE NORMAL 

TO GET PROPER DSW 

MSG NO 
MAS4— 02BE 
LEVEL 4 

DSM ERROR 



RETURN TO PROGRAM 



K0800 DC 
KEFFE DC 
K1000 DC 

* 



/0800 
/EFFE 
/1000 



DSW ERROR OCCURRED ON LEVEL 



DSWEO DC 
EOR 
BSC 

* 

EOTYP LD 
EOR 
STO 
LD 
STO 
LDX 
LDX 
LDX 
STX 
LDX 
BSI 



»-» 

K1000 

EOLCC+- 



BR IF L/C ONLY 



XERR 
K4003 
L MASO 

K4003 
L 02BE 

1 2 
L2 /Olll 
L3 ALVLO 
L3 ALPH2 
L3 ADSWE 
L ETYPE 



ERROR AND PROPER BITS 

DSW WAS 

PROPER DSW 

SHOULD BE 

MSG NO 

MASO — 02BE 

LEVEL 

WAS S/B DSW ERROR 



EORTN SLA 16 

STO XERR 
BSC I DSWEO 

# c 

EOLCC LD L MAS4 
SLA 3 

BSC L EORTN, +Z 
MDX EOTYP 

* INTERRUPT WAIT ROUTINE 

* THIS SUBROUTINE WAITS FOR INTERRUPT. 

* WHEN THE INTERRUPT IS RECEIVED IT WILL 



RETURN TO ANAL ROUTINE 

CHK IF L/C ON LEVEL 4 

BR IF L/C PROPER 
BR IF NOT PROPER 



30E02060 

30E02070 

3OE0208O 

30E02090 

30E02100 

30E02110 

30E02120 

30E02130 

30E02140 

30E02150 

30E02160 

30E02170 

30E02180 

30E02190 

30E02200 

3OEO2210 

30E02220 

30E02230 

30E02240 

30E02250 

30E02260 

30E02270 

30E02280 

30E02290 

30E02300 

30E02310 

30E02320 

30E02330 

30E02340 

30E023S0 

30E02360 

30E02370 

30E02380 

30E02390 

3OEO24O0 

30E02410 

30E02420 

30E02430 

30E02440 

30E02450 

30E02460 

30E02470 

30E02480 

30E02490 

30E02500 

30E02510 

30E02520 

30E02530 

30E02540 

30E02550 

30E02560 

30E02570 

30E02580 

30E02590 

30E02600 

30E 02610 

30E02620 

30E02630 

30E02640 

30E02650 

30E02660 

30E02670 

30E02680 

30E02690 

30E02700 

30E02710 

30E02720 

30E02730 
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069C 0000 
0690 6500 1000 
069F 6925 

06A0 1 6500 06A9 
06A2 1 7400 05E6 
06A4 7008 

06A5 1 6D00 05E5 
06A7 4480 0161 

06 A9 1 74FF 06C5 
06AB 70F4 
06AC 700A 

06AD 1 C400 05E0 
06AF 4488 0161 
06B1 1 9400 05DD 
06B3 1 4420 05FA 
06B5 4480 0161 



06B7 
06BB 
06BA 
06 BC 
06BE 
06C0 
06C2 1 
06C4 



6103 

6600 0100 
6700 OBOC 
6F00 OAEE 
6700 0B53 
4400 0AD5 
6580 05DE 
70E0 



06C5 0000 



06C6 1 4400 087D 

06C8 6150 
06C9 1 C500 0A81 
06CB 1 D500 0A31 
06CD 71FF 
06CE 70FA 

06CF 1 6500 0A32 
060 1 6904 

OfcD2 1 4400 0902 

06D4 1 4400 0963 
0606 0000 
06D7 0050 

0608 70F9 

0609 1 7401 06D6 
06DB 1 C400 0962 
06D0 1 F400 0AD2 
06DF 1 4C20 06D2 



« 

« 

* 

*- 

* 

WAIT 



* 
WAIT1 



* 
WAIT2 

WAIT3 



CHECK THE ROUTINE SELECTION SWITCH. 
IF A NEW ROUTINE HAS BEEN SELECTED IT 
WILL BRANCH TO THE CONTROL ROUTINE. 



DC 

LDX 

STX 



/OOOO 
LI /1000 
1 WCNT 



WAIT4 



* 
WAIT5 



LDX LI WAIT3 

MDX L MLSCF+1 
MDX WAIT4 

STX LI MLSCF 

BSI I START 

MDX L WCNT.-1 
MDX WAIT1 

MDX WAIT5 



LD 

BSI 

S 

BSI 

BSI 

LDX 
LDX 
LDX 
STX 
LDX 
BSI 
LDX 
MDX 



SW1 

START,* 

RID 

CNTRL.Z 

START 



1 3 
L2 /0100 
L3 ALVL4 
L3 ALPH2 
L3 ANINT 
L ETYPE 
II RAD 
WAIT2 



WCNT DC 



SET INTERRUPT 
WAIT CNT 



CK FOR INTERRUPT 

BR IF INTERRUPT OCCURED 

SET RETURN ADDRESS 
GO TO MONITOR 

DECREMENT WAIT CNT 

BR IF NO INTERRUPT 

CK FOR RTN SELECT 
CK FOR NEW ROUTINE 
BR IF NEW RTN 
GC TO MONITOR 

MSC NO 

LEVEL 4 

NO INTERRUPT 

START ROUTINE OVER 
RETURN VIA MONITOR 

WAIT .COUNT STORED HERE 



* ROUTINE ONE - PUNCH ROTATING PATT. 

* 

* THIS ROUTINE PUNCHES A ROTATING 

* PATTERN. NORMAL TERMINATION IS 
AFTER THE LAST CARD IS PUNCHEO 



« 
* 
* 
RTl 

* 

RT1C 
RTIA 



BSI 

LOX 

LD 

STO 

MDX 

MDX 

LDX 
STX 



* 
RTIB 

• 

BSI 
PCHAl DC 
NCOLl DC . 

MDX 

MDX 
LC 
EOR 
BSC 



L INPCH 

l 80 
LI WARA2-1 
LI WAREA-1 

1 -1 
RTIA 

LI WAREA 
1 PCHAl 



BSI L CHK14 



PNCH 
»-* 
80 
RTIB 

PCHAl, +1 
TERAD 
WAREN 
RTIB, 2 



TO INITIALIZE PUNCH 

INITIALIZE PUNCH AREA 
FOR ROTATING PATTERN 



INITIALIZE PUNCH AODR 



CHECK STATUS 

TO PUNCH A CARD 

PUNCH BEGINNING ADDR 

ERROR RETURN POINT 

INCRE PUNCH ADDR 
HAS ROTATION REACHED 
END OF WRITE AREA 
BR IF NOT 



30E02740 

30E02750 

30E02760 

30E02770 

30E02780 

30E02790 

30E02800 

30E02810 

30E02820 

30E02830 

30E02840 

30E02850 

30E02860 

30E02870 

30E02880 

30E02890 

30E02900 

30E02910 

30E02920 

30E02930 

30E02940 

30E02950 

30E02960 

30E02970 

30EO2980 

30E02990 

30E03000 

30E03010 

30E03020 

30E03030 

30E03040 

30E03050 

30E03060 

30E03070 

30E03080 

30E03090 

30E03100 

30E03110 

30E03120 

30E03130 

30E03140" 

30E03150 

30E03160 

30E03170 

30E03180 

30E03190 

30E03200 

30E03210 

30E03220 

30E03230 

30E03240 

30E03250 

30E03260 

30E03270 

30E03280 

30E03290 

30E03300 

30E03310 

30E03320 

30E03330 

30E03340 

30E03350 

30E03360 

30E03370 

30E033B0 

30E03390 

30E03400 

30E03410 



06E1 70E6 



MDX 



RT1C 



BR IF YES 



06E2 1 0A82 
06E3 0000 

06E4 1 4400 08BF 

06E6 6150 

06E7 1 C500 0A81 

06E9 1 D500 0A31 

06EB 71FF 

06EC 70FA 

06ED 1 6500 0A32 
06EF 69F3 

06F0 6100 
06F1 1 6000 0AD4 
06F3 1 4400 0933 

06F5 1 4400 09FA 
06F7 0050 

06F8 61B0 
06F9 1 6680 06E3 
06FB 1 C500 09F9 
06FD F200 
06FE 1 E400 0659 
C700 1 4C20 070C 

0702 7201 

0703 7101 

0704 70F6 

0705 CODC 

0706 FODC 

0707 1 4C18 06ED 

0709 1 7401 06E3 
070B 70E4 



07 OC 
070E 
07 OE 
0710 
0711 
0712 
0714 
0716 
0718 
071A 
071B 
071C 
071D 
071F 



6D00 
7451 
7451 
1000 
C200 
E400 
D400 
C500 
D400 
690F 
6A10 
6108 
6600 
6700 



0AF4 
0AF4 
0AF4 



0659 
0AF3 
09F9 
OAF 2 



0138 
0B27 



* ROUTINE TWO. READ ROTATING PATT 
******************************************** 

* THIS ROUTINE READS THE ROTATE DECK 

* PUNCHED IN ROUTINE ONE, CHECKING THE 
* DATA AGAINST THE PUNCH PATTERN 



RT2CC DC 
RT2CS OC 

* 

RT2 BSI 

LDX 

LD 

STO 

MDX 

MDX 



RT2A 



* 
RT2D 

* 
RT2C 



RT2B 



RT2E 



RT2F 



* 
* 



LDX 
STX 

LDX 
STX 
BSI 

BSI 

DC 

LDX 
LDX 

LD 
EOR 
AND 
BSC 

MDX 
MDX 
MDX 

LD 

EOR 

BSC 

MDX 

MDX 



WARA2 

*-* 

L INRDR 

1 80 

LI WARA2-1 
LI WAREA-1 
1 -1 
RT2A 

LI WAREA 
1 RT2CS 

1 

LI LN1SW 
L CHK25 

L RDACD 
80 



1 -80 
12 RT2CS 

LI RAREA+81 

2 1 .- 

L KFFFO 
L RT2DA.Z 



2 +1 
1 +1 
RT2B 

RT2CC 

RT2CS 

L RT2D,+- 

L RT2CS.+1 
RT2C 

DATA ERROR 



FOR AREA END CHACK 
COMPARE START ADDR 

TO INITIALIZE READR 



INITIALIZE ROTATE 
PATTERN IN PUNCH 
AREA FOR COMPARE 



INITIALIZE COMPARE STAR 
ADDRESS 



CLEAR FIRST LN SW 
CHECK STATUS 

TO READ A CARD 
NO OF COLS 



COMPARE START AOORESS 

CHAR READ - 

PROPER CHAR 

REMVE UNWANTED BITS 

BR IF DATA ERROR 

TO NEXT COMP CHAR 
TO NXT CHAR 
CONTINUE 

LAST ADDRESS 
COMP TO THIS TIME 
BR IF END OF PATTERN 

INCRE COMP START AODR 
BR TO CONT|NOE 



* 
RT2DA 



STX 

MDX 

MDX 

NOP 

LD 

AND 

STO 

LD 

STO 

STX 

STX 

LDX 

LDX 

LDX 



LI COL 

L COL, +81 

L COL, +81 





KFFFO 
02BE 



STO ERROR COLUMN 



SKIPPED BY MOX 
PROPER CHAR 
PASS BITS 0-11 



LI RAREA+81 ERROR CHAR 
L WASD 

1 RT2D1+1 SAVE XR1 

2 RT2D2+1 SAVE XR2 
1 8 

L2 /0138 
L3 ADTAE 



30E03420 
30E03430 
* 30E03440 
30E03450 
30E03460 
30E03470 
30E03480 
30E03490 
30E03S00 
- 30E03510 
30E03520 
30E03530 
30E03540 
30E03550 
30E03560 
30E03570 
30E03580 
30E03590 
3 OE 03 600 
30E03610 
30E03620 
30E03630 
30E03640 
30E036S0 
30E03660 
30E03670 
30E03680 
30E03690 
30E03700 
3&E03710 
3 OE 03 720 
30E03730 
3OE03740 
30E03750 
30E03760 
30E03770 
30E03780 
30E03790 
30E03B00 
3OE03810 
3OE03820 
3OE0383O 
30E03840 
30E03850 
306038*0 
30E03870 
30E03880 
30E03890 
30E03900 
30E03910 
30E03920 
30E03930 
30E03940 
30E03950 
30E03960 
30E03970 
30E03970 
30E03980 
30103990 
30E04000 
30E04010 
30E04020 
30E04030 
30E04040 
30E040S0 
30E04060 
'0E04070 • 
30E04080 



DATE 

EC NO. 



15JUN67 
420317 



09SEP67 
420317B 



15FEB68 
420403 



PROG ID 
PAGE 



030E-0 
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PAGE 
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0721 


1 


4400 


0AD5 


0723 


1 


C400 


05E2 


0725 


1 


-4C20 


0705 


0727 


1 


6D00 


0A04 


0729 





6500 


0000 


072B 





6600 


0000 


0720 





7004 





BSI L ETYPE 



072E 1 4400 08BF 

0730 6101 

0731 6904 

0732 1 4400 0933 

0734 1 4400 09FA 

0736 0000 

0737 COFE 

0738 1 F400 065A 
073A 1 4C18 0730 
073C 1 7401 0736 
073E 70F3 



073F 1 4400 08BF 
0741 1 4400 0933 
0743 1 4400 09FA 

0745 0050 

0746 1 4400 0870 
0746 1 4400 0870 

0748 1 4400 0902 
074A 1 4400 0963 
074C 1 09A9 
0740 0050 
074E 7000 
074F .'0F8 



L SW3 
L RT2FtZ 
LI LN1SW 
LI *-* 
L2 ■»-* 
RT2E 



BR IF 1 LN OPTION SEL 
SET FIRST LINE SW 
RESTORE XR1 
RESTORE XR2 
READ ANOTHER CARD 



LD 

BSC 

STX 
RT2D1 LDX 
RT2D2 LDX 

MDX 
* 
********************************************* 

* ROUTINE THREE 

»******♦»»»»****»*»»***»******»****»***»*«********* 
* 

« THIS ROUTINE READS CARDS VARYING 

* THE COLUMN COUNT FROM ONE TO EIGHTY 

* 

RT3 
* 
RT3D 

RT3A 



BSI L INRDR INITIALIZE READER 

LDX 1 1 INITIALIZE NUMBER 

STX 1 NC0L3 F COLUMNS 

BSI L CHK25 CHECK STATUS 



RDACD 



READ A CARD 



NC0L3 

K0050 

RT3D.+- 

NC0L3t+l 

RT3A 



NUMBER OF COLS 

BR IF COL COUNT 
INCRE NO OF COLS 



- 80 



BSI 
NC0L3 DC 

RT3E LD 

EOR 

BSC 

MDX 

MDX 
* 

* ROUTINE FOUR — GANG PUNCH 

* THIS ROUTINE READS ONE CARD 

» FROM THE 2501 AND PUNCHES THAT 

* PATTERN REPEATEDLY ON THE 1442 

RT4 BSI L INRDR INITIALIZE READER 

BSI L CHK25 CHECK STATUS 

BSI L ROACD READ CARD 

DC 80 COL COUNT 

BSI L INPCH INITIALIZE PUNCH 

BSI L INPCH INITIALIZE PUNCH 

BSI L CHK14 CHECK STATUS 

BSI L PNCH PUNCH CARD 

DC RAREA+1 FROM READ AREA 

DC 80 COL COUNT 

MDX • ERROR RETURN 
MDX RT4A 

♦♦♦•a********************************************* 

ROUTINE FIVE— READ GANG PUNCHED DECK 
«#»*»**♦»**««»»*******»*********»*****»*********** 

THIS ROUTINE READS CARDS, COMPARING 
THE DATA FROM EACH CARD WITH THAT 
FROM THE FIRST 



« 
RT4A 



0750 1 4400 08BF 



RT5 



BSI 



INRDR 



INITIALIZE READER 



30E04090 

30E04100 

30E04110 

30E04120 

30E04130 

30E04140 

30E04150 

30E04160 

30E04170 

30E04180 

30E04190 

30E04200 

30E04210 

30E04220 

30E04230 

30E04240 

30E04250 

30E04260 

30E04270 

30E04280 

30E04290 

30E04300 

30E04310 

30E04320 

30E04330 

30E04340 

30E04350 

30E04360 

30E04370 

30E04380 

30E04390 

30E04400 

30E04410 

30E04420 

30E04430 

30£ 04440 

30E 04450 

30E04460 

3 OE 04470 

30E044BO 

3OEO4490 

30E04500 

30E04510 

30E04520 

30E04530 

30E04540 

30E04550 

30E04560 

30E04560 

30E04570 

30E04580 

30E04590 

30E04600 

30E04610 

30E04620 

30E04630 

30E04640 

30E04650 

30E04660 

30E04670 

3 OE 04 680 

30E04690 

30E04700 

30E04710 

30E04720 

30E04730 

30E04740 

30E04750 
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0752 1 4400 0933 




BSI 


L 


CHK25 


CHECK STATUS 


30E04760 






0754 1 4400 09FA 




BSI 


L 


RDACD 


READ FIRST CARD 


30E04770 






0756 0050 


* 


DC 




80 


COL COUNT 


30E04780 
30E04790 






0757 6150 




LDX 


1 


80 




30E04800 






0758 1 C500 09A8 


RT5A 


LD 


LI 


RAREA 


MOVE COMPARE DATA 


30E04810 






075A 1 D500 0A31 




STO 


LI 


HAREA-1 


TO WAREA FOR COMPARE 


30E04820 






075C 71FF 




MDX 


1 


-1 




30E04830 






075D 70FA 


« 


MDX 




RT5A 




30E04840 
30E04850 






075E 1 6000 0AD4 


RT5B 


STX 


LI 


LN1SU 


RESET LN 1 SM 


30E04860 






0760 1 4400 0933 




BSI 


L 


CHK25 




30E04870 






0762 1 4400 09FA 




BSI 


L 


RDACD 


READ CARD 


30E04880 






0764 0050 




DC 




80 


COLCOUNT 


30E04890 






0765 61B0 


* 


LDX 


1 


-80 


FOR COMP 


30E04900 
30E04910 






0766 1 C500 09F9 


RT5C 


LD 


LI 


RAREA+81 


CHAR READ 


30E04920 






0768 1 F500 OA82 




EOR 


LI 


WAREA+80 


COMP CHAR 


30E04930 






076A 1 E400 0659 




AND 


L 


KFFFO 


REMOVE UNWANTED BITS 


30E04940 






076C 1 4C20 0771 




BSC 


L 


RT5D,Z 


BR If DATA ERROR 


30E04950 






076E 7101 


RT5E 


MDX 


1 


1 




30E04960 






076F 70F6 




MDX 




RT5C 


CONTINUE SCAN 


30E04970 






0770 70ED 


* 


MDX 




RT5B 


READ ANOTHER CARD 


30E04980 
30E04990 






0771 1 C500 09F9 


RT5D 


LO 


LI 


RAREA+81 


CHAR READ 


30E05000 






0773 1 D400 0AF2 




STO 


L 


WASD 




30E05010 






0775 1 C500 0A82 




LO 


LI 


WAREA+80 


PROPER CHAR 


30E05020 






0777 1 E400 0659 




AND 


L 


KFFFO 


PASS BITS 0-11 


30E05030 






0779 1 0400 OAF 3 




STO 


L 


02BE 




30E05040 






077B 6912 




STX 


1 


RT5DI+1 


SAVE XR1 


30E05050 






077C 7151 




MDX 


1 


+81 


TO COL NO 


30E05060 






077D 1000 




NOP 








30E05070 






077E 1 6000 0AF4 




STX 


L-l 


COL 




30E05080 






0780 6108 




LDX 


1 


8 


MSG NO 


30E05090 






0781 6600 0138 




LDX 


L2 


/0138 


DATA ID 


30E05100 






07B3 1 6700 0B27 




LDX 


L3 


ADTAE 


DATA ERROR 


30E05110 






0785 1 4400 0AD5 


* 


BSI 


L 


ETYPE 




30E05120 
30E05130 






0787_J. C400 05E2 




LD 


L 


SH3 




30E05140 






07S9-1 *C20 075E 




BSC 


L 


RT5B,Z 


BR IF 1 LN ONLY OPTION 


SEL 30E05150 






G78B 1 6000 0AD4 




STX 


LI 


LN1SW 


SET LINE 1 SN 


30E05160 






078D 6500 0000 


RT5D1 


LDX 


LI 


*-* 


RESTORE XR1 


30E05170 






078F 70DE 


* 


MDX 




RT5E 




30E05180 
30E05190 








*#**»*»»»*»*****«****»*»*♦*♦****•»»********••»*»*** 30E05200 








* 






ROUTINE 


SIX 


30E05210 








***»******##**»*****»*»**»****»»*•*»****♦********♦* 30E0522O 








* 










30E05230 








* 






THIS ROUTINE PUNCHES A 


30E05240 








* 






SELECTED 


PATTERN. 


30E05250 

30E05260 

30E05270 






















• 










30E05280 






0790 0000 


RT6SW DC 

* 




»-» 


SWITCH SETTING 


30E05290 
30E05300 






0791 1 4400 087D 


RT6 

* 


BSI 


L 


INPCH 


INITIALIZE PUNCH 


30E05310 
30E05320 




' ' ' - ' 


0793 6500 3000 


RT6A 


LOX 


LI 


/3000 


TIMING CONST FOR 


30E05330 






0795 1 6000 087A 


* 


STX 


LI 


MTCNT 


WAITING LOOP 


33E05340 
30E05350 






0797 6104 

0798 6200 




LOX 
LOX 


1 
2 


4 



MSG NO 
NO ATA 


30E05360 
30E05370 


• 




0799 1 6700 0834 




LOX 


L3 


ASETP 




30E05380 






079B 1 4400 0AF8 


* 


BSI 


L 


TYPE 


TYPE SET PATT MSG 


30E05390 
30E0540Q 






079D 1 6500 0790 




LDX 


LI 


RT6SH 


DATA AODR 


30E05410 
30E05420 






079F 1 6D00 062E 




STX 


LI 


SNSMS 








07A1 1 OCOO 062E 


RT6B 


XIO 


L 


SNSWS 


READ CONSOLE SWITCHE 


30E05430 




DATE 


15JUN67 09SEP67 


15FEB68 
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DATE 

EC NO. 



07A3 COEC 
07 A4 1803 
07A5 4804 
07A6 700A 

07 A7 1 74FF 087A 
07A9 7001 
07 AA 70E8 

07AB 1 6500 07A1 
07A0 1 6D00 OSES 
07AF 4480 0161 



07B1 
07B2 
07B4 
07B5 
07B7 
07B8 



CODE 

1 E400 0656 

6150 

1 0500 0A31 
71FF 

70FC 



0789 1 4400 0902 

07BB 1 C400 05E1 
07BD 1 4C20 07CE 
07BF 6150 
07C0 6903 

07C1 1 4400 0963 

07C3 1 0A32 

07C4 0050 

07C5 7000 

07C6 1 OCOO 062E 

07C8 C0C7 
07C9 1 F400 0A32 
07CB 1 4C20 07A1 

07CD 70EB 

07CE 1 D400 07C4 
0700 70F0 



0701 0000 

0702 1 4400 08BF 

0704 6500 3000 
0706 1 6000 087A 



0708 6105 

0709 6200 
07DA 1 6700 0B34 
07DC 1 4400 0AF8 

07DE 1 6500 0701 
07E0 1 6D00 062E 
07E2 1 OCOO 062E 



RT6C 



RT6D 



LD 
SRA 
BSC 
MDX 

MDX 
MDX 
MDX 

LOX 
STX 
BSI 



LD 
AND 
LOX 
RT6E STO 
MDX 
MOX 

RT6F BSI 

* 

LD 
BSC 
LDX 
STX 

• 

RT6G BSI 
DC 

NC0L6 DC 
MDX 

* 

XIO 

LD 

EOR 
BSC 

MDX 



RT6SW 
3 
E 
RT6D 

L HTCNTt-1 
RT6C 
RT6A 

LI RT6B 
LI MLSCF 
I START 

RT6SH 
L KFFF7 

1 80 
LI HAREA-1 
1 -1 
RT6E 

L CHK14 

L SW2 
L RT6H.2 

1 80 

1 NC0L6 

L PNCH 
HAREA 
80 

* 

L SNSWS 



RT6H 



STO 
MDX 



RT6SW 
MAREA 
RT6B.Z 

RT6F 

NC0L6 
RT6G 



SWITCH SETTING 
CHECK BIT 12 
SKIP IF SH 12 NOT ON 
BRIF SU 12 ON 

SKIP WHEN COUNT ZERO 
BR TO DLV VIA MON 
BR WHEN COUNT - 

RETURN POINT 

VIA MONITOR 

PUNCH PATTERN 
REMOVE 12 BIT 

FILL WRITE AREA 
WITH SELECTED BITS 

CHECK STATUS 
CHECK CC OPTION 
MAKE COL COUNT 80 

PUNCH A CARD 
PUNCH AREA 
NO OF COLS 
ERROR RETURN 

READ CONS SWS 

CHECK FOR CHANGES 
BR IF SWS CHANGED 

TO PUNCH ANOTHER CD 

STO COLUMN COUNT 



* ROUTINE SEVEN 

* READ SELECTED PATTERN 



15JUN67 
420317 



09SEP67 
420317B 



RT7SW DC 

RT7 BSI 

* 

RT7A LOX 
STX 

* 

LDX 
LOX 
LDX 

BSI 

* 

LOX 

STX 

RT7B XIO 

» 



15FEB68 
420403 



L INROR 

LI /3000 
LI WTCNT 

1 5 

2 

L3 ASETP 
L TYPE 

LI RT7SW 
LI SNSWS 
L SNSWS 



SWITCH SETTING 

INITIALIZE REAOER 

TIMING CONST FOR 
WAITIBG LOOP 

MSG NO. 
NO DATA 

TYPE SET PATT MSG 

DATA ADDR 

READ CONSOLE SWITCHE 



30E05440 

30E05450 

30E05460 

30E05470 

30E05480 

30E05490 

30E05500 

30E05510 

30E05520 

30E05530 

30E05540 

30E05550 

30E05560 

30E05570 

30E05580 

30E05590 

30E05600 

30E05610 

30E05620 

30E05630 

30E05640 

30E05650 

30E05660 

30E05670 

30E05680 

30E05690 

30E05700 

30E05710 

30E05720 

30E05730 

30E05740 

30E05750 

30E05760 

30E05770 

30E05780 

30E05790 

30E05800 

30E05B10 

30E05B20 

30E05830 

30E05840 

30E05850 

30E05860 

30E05870 

30E05880 

30E05890 

30E05900 

30E05910 

30E05920 

30E05930 

30E05940 

30E05950 

30E05960 

30E05970 

30E05980 

30E05990 

30E06000 

30E06010 

30E06020 

30E06030 

30E06040 

30E06050 

30E06060 

30E06070 

30E06080 

30E06090 

30E06100 

30E06110 



PROG ID 
PAGE 



07E4 COEC 
07E5 1803 
07E6 4804 
07E7 700A 

07E8 1 74FF 087A 
07EA 7001 
07EB 70E8 
07EC 1 6500 07E2 
07EE 1 6000 05E5 
07F0 4480 0161 

07F2 1 4400 0933 
07F2 1 4400 0933 

07F4 1 C400 05E1 
07F6 1 4C20 0827 
07F8 6150 
07F9 6905 
07FA 6100 
07FB 1 6000 0AD4 

07FD 1 4400 09FA 
07FF 0050 

0800 1 6580 07FF 



0802 
0804 



C500 09A8 
FOCC 



0805 1 E400 0656 
0807 1 4C20 080C 
0809 71FF 
080A 70F7 
080B 70E6 



080C 
OBOD 
080F 
0811 
0812 
0814 
0816 
0817 
0818 
081A 
08'C 



F0C4 
D400 
6D00 
COBF 



1 E400 



D400 
690E 
6108 
6600 
6700 
4400 



0AF2 
0AF4 

0659 
0AF3 



0138 
0B27 
OA05 



081E 1 C400 05E2 
0820 1 4C20 07F2 
0822 1 6000 0AD4 
0824 6500 0000 

0826 70E2 

0827 D0D7 
0826 7004 



0829 0000 

082A 1 4400 08BF 
082C 1 4400 087D 
082E 1010 



LD RT7SW 

SRA 3 

BSC E 

MDX RT7D 



RT7C 



MOX 
MDX 
MOX 
LDX 
STX 
BSI 



RT7D BSI 
RT70 BSI 

LD 
BSC 
LOX 
STX 
LDX 
STX 
* 

RT7G BSI 

NC0L7 DC 

* 

LDX 

RT7E LO 

EOR 

AND 

BSC 

RT7FR MDX 

MDX 

MDX 

* 

RT7F EOR 
STO 
STX 
LO 
AND 
STO 
STX 
LOX 
LDX 
LDX 
BSI 



L WTCNT, -1 

RT7C 

RT7A 
LI RT7B 
LI MLSCF 
I START 

L CHK25 
L CHK25 



L 

L 
1 
1 

1 



SW2 

RT7H.Z 

80 

NC0L7 





LI LN1SW 

L ROACD 
80 

II NC0L7 
LI RAREA 

RT7SW 
L KFFF7 
L RT7F.Z 
1 -1 

RT7E 

RT7D 

RT7SW 
L WASD 
LI COL 

RT7SW 
L KFFFO 
L 02BE 

1 RT7F1+1 

1 8 
L2 /0138 
L3 ADTAE 
L ETYPE 



SWITCH SETTING 
CHECK BIT 12 
SKIP IF SW 12 NOT ON 
BRIF SW 12 ON 

SKIP WHEN COUNT ZERO 
BR TO OLY VIA MON 
BR WHEN COUNT « 
RETURN POINT 

VIA MONITOR 

CHECK STATUS 
CHECK STATUS 

CHECK CC OPTION 

MAKE COL COUNT 80 

REST LN 1 SW 

READ A CARD 
NO OF COLS 



CHAR READ 
SWITCH SETTING 
REMOVE TERM BIT 
BR IF DATA ERROR 

CONTINUE SCAN 
READ ANOTHER CARD 

RESTORE CHAR READ 

COL NUMBER 
PROPER CHAR 
PASS BITS 0-11 

SAVE XR1 

MSG NO 

DATA ID 

DATA ERROR HDG 



LO L SW3 

BSC L RT70.Z 

STX LI LN1SW 

RT7F1 LDX LI *-* 

MDX RT7FR 

* 

RT7H STO NC0L7 
MDX RT7G 

* 

* ROUTINE EI 
* 

* REPRODUCE ROUTINE 



BR IF 1 LN ONLY OPTION SEL 

SET LINE 1 SW 

RESTORE XR1 

CHECK FOR MORE ERRORS 

STO COLUMN COUNT 



GHT 

********************* 



» 

RT8SA DC 



ft-* 



RT8 



BSI L INRDR 
BSI L INPCH 
SLA 16 



WAS4 SAVE AREA 



INITIALIZE PUNCH 



030E-0 
5 



OATE 
EC NO. 



15JUN67 
420317 



09SEP67 
420317B 



15FEB68 
420403 



30EO6120 

30E06130 

30E06140 

30E06150 

30E06160 

30E06170 

30E06180 

30E06190 

30E06200 

30E06210 

30EO6220 

30E06230 

30E06240 

30E06240 

30E06250 

30E06260 

30E06270 

30E06280 

30E06290 

30E06300 

30E06310 

30E06320 

30E06330 

30E06340 

30E06350 

30 E 063 60 

30E06370 

30E06380 

30E06390 

30E06400 

30E06410 

30E06420 

30E06430 

30E06440 

30E06450 

30E06460 

30E06470 

30E06480 

30E06490 

30E06500 

30E06510 

30E06520 

30E06530 

30E06540 

30E06550 

30E06560 

30E06570 

30E06580 

30E06590 

30 E 06 600 

30E06610 

30E06620 

30E06630 

30E06640 

30E06650 

30E06660 

30E06670 

30E06680 

30E06690 

30E06700 

30E06710 

30E06720 

30E06730 

30E06740 

30E06750 

30E06760 

30E06770 

30E06780 
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082F D0F9 



0830 
0832 
0833 
0835 
0837 
0839 
083A 
083C 
083D 
083F 
0840 
0841 
0842 



1 4400 

C0F6 

1 D400 
1 4400 

4400 
0050 
C400 
DOEC 
4400 
09A9 
0050 
7000 
70ED 



0902 

OAFO 
0933 
09FA 

OAFO 

0963 



RT8A 



STO 

BSI 

ID 

STO 

BSI 

BSI 

DC 

LO 

STO 

BSI 

DC 

DC 

MDX 

MDX 



RT8SA 

CHK14 

RT8SA 

WAS4 

CHK25 

RDACD 

80 

MAS4 

RT8SA 

PNCH 

RAREA+1 

80 

* 

RT8A 



CLEAR HAS4 SAVE AREA 
CHECK STATUS 

RESTORE HAS4 FOR CHK25 
CHECK STATUS 
READ CARD 
COL COUNT 

SAVE STATUS FOR CHK25 
PUNCH CARD 
FROM READ AREA 
COL COUNT 
ERROR RETURN 



ROUTINE NINE— REPLACE ROTATE PATTERN 

#*»*************»*************»**♦******»**»****** 

THIS ROUTINE REPLACES THE ROTATE 
PATTERN WITH THAT FROM THE FIRST 
CARO IN THE 2501 

IT THEN RETURNS TO ROUTINE ONE TO 
PUNCH THE PATTERN 



0843 1 4400 08BF 

0845 1 4400 0933 
0847 1 4400 09FA 
0849 0050 
084A 6150 



0848 
0840 
084F 
0850 
0851 
0852 



C500 09A8 
D500 0A81 
71FF 
70FA 
6100 
6D00 05E0 



RT9 

« 
RT9A 



* 
RT9B 



0854 1 4C00 Q5EB 



BSI 

BSI 
BSI 
DC 
LDX 

LD 

STO 

MDX 

MDX 

LDX 

STX 

BSC 



INRDR 

CHK25 
RDACD 
80 
80 



LI RARE A 
LI HARA2-1 

1 -1 
RT9B 

1 
LI SHI 
L STRT 



INITIALIZE READER 

CHECK STATUS 
READ CARD 
COL COUNT 



REPLACE CHAR 

IN ROTATE CONSTANT AREA 



ZERO ROUTINE SEL SH 
RETURN TO START OF PROG 





0856 





0000 




* 
RTASW 


OC 




*-* 




0857 





0000 




RTAPC 


DC 




*-* 




0858 





0000 




RTADC 


DC 




*-* 




0859 


1 


4400 


08BF 


RTA 


BSI 


L 


INROR 




085B 


1 


6500 


0856 




LDX 


LI 


RTASW 




085D 


1 


6000 


062 E 




STX 


LI 


SNSWS 




085F 





6101 






LDX 


1 


1 




0860 





69F6 






STX 


1 


RTAPC 




0861 





69F6 






STX 


1 


RTADC 




0862 


1 


4400 


0933 


RTAA 


BSI 


L 


CHK25 




0864 


1 


OCOO 


062C 




XIO 


L 


IREAD 




0866 


1 


OCOO 


062A 


RTAA1 


XIO 


L 


SNS2 




0868 





4804 






BSC 




E 




0869 





70FC 






MDX 




RTAA1 


DATE 


15JUN67 09SEP67 


15FEB68 






EC NO. 


420317 420317B 


420403 







» ROUTINE TEN 

it*********************************************"***** 

« 

* READ WITH VARIABLE DELAY 

* BETWEEN CARDS 



SWITCH SETTING 
ROUTINE PASS COUNTER 
DELAY COUNTER 

INITIALIZE READER 
INIT SENSE SWS IOCC 

INITIALIZE COUNTERS 



CHECK STATUS 
READ A CARD 
SENSE DSW 
SKIP IF NOT BUSY 
LOOP UNTIL OP COHP 



30E06790 

30E06800 

30E06810 

30E06820 

30E06830 

30E06840 

30E06850 

30E06860 

30E06870 

30E06880 

30E06890 

30E06900 

30E06910 

30E06920 

30E06930 

30E06940 

30E06950 

30E06960 

3 OE 06970 

30E06980 

30E06990 

30E07000 

30E07010 

30E07020 

30E07030 

30E07040 

3 OE 07050 

30E07060 

30E07070 

30E07080 

30E07090 

30E07100 

30E07110 

30E07120 

30E07130 

30E07140 

30E07150 

30E07160 

30E07170 

30E07180 

30E07190 

30E07200 

30E07210 

30E07220 

30E07230 

30E07240 

30E07250 

30E07260 

30E07270 

30E07280 

30E07290 

30E07300 

30E07310 

30E07320 

30E07330 

30E07340 

30E07350 

30E07360 

30E07370 

30E07380 

T0E07390 

30E07400 

30E07410 

30E07420 

30E07430 

30E07440 

30E07450 

30E07460 
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086A 1010 






SLA 




16 




30E07470 






086B 1 D400 


05E6 




STO 


L 


MLSCF+1 


NO INTERRUPT RET ENTRY 


30E07480 






086D 1 74FF 


0858 


RTAB 


MDX 


L 


RTADCt-1 


DECRE DELAY COUNT 


30E07490 






086F 70FD 






MDX 




RTAB 


BR TO DELAY 


30E07500 






0870 1 OCOO 


062E 




XIO 


L 


SNSWS 


SENSE CONSOLE SW 


30E07510 






0872 C0E3 






LD 




RTASW 


SWITCH SETTING 


30E07520 






0873 1 4C20 


0878 




BSC 


L 


RTACZ 


BR IF SWS SET 


30E07530 






0875 1 7401 


0857 




MDX 


L 


RTAPC, +1 


UPDATE PASS COUNT 


30E07540 






0877 CODF 






LD 




RTAPC 


LOAD NEW DELAY FACTOR 


30E07550 






0878 DODF 




RTAC 


STO 




RTADC 


STORE DELAY FACTOR 


30E07560 






0879 70E8 




* 


MDX 




RTAA 


BR TO READ NXT CD 


30E07570 
30E07580 
30E07590 
30E07600 










*******♦***»*»**»****»**»*****»»**»*»♦»*****»»***** 










**»** 






SERVICE SUBROUTINES »»»»» 


30E07610 










*******«*****•*****************«*«•****#**•*******• 


30E07620 




















30E07630 
30E07640 










• 


















• 










30E07650 










***#***»*»******»*<■*»***«*********»»****»»****»»»** 


30E07660 










« 






INITIALIZE 


1442 SUBROUTINE 


30E07670 










«*#**»*******«*«»*****•*****•****«•«*•*****•»**»*** 


30E07680 










* 








^ 


30E07690 










* 






THIS SUBROUTINE INITIALIZES THE 


30E07700 










* 






1442 PRIOR 


TO STARTING ANY ROUTINE 


30E07710 










* 






AND TYPES 


A LOAD BLANKS MESSAGE 


30E07720 










♦—— — 










30E07730 










• 










30E07740 










* 










30E07750 






087A 0000 




WTCNT 


DC 




»-* 




30E07760 






087B 0000 




KOOOO 


DC 




/oooo 




30E07770 






087C 0001 




KOOOl 

» 


DC 




/0001 




30E07780 
30E07790 






087D 0000 




INPCH 


OC 




*-* 




3OEO7BO0 






087E 6500 


1442 




LDX 


LI 


71442 


MACH TYPE 


30E07810 






0880 1 6D00 


0AF7 




STX 


LI 


MACH 




30E07820 






0882 6101 






LDX 


1 


1 


MSG NO. 


30E07830 






0883 6600 


0100 




LDX 


L2 


/0100 


NO DATA 


30E07840 






0885 1 6700 


0B59 




LOX 


L3 


ALOHR 


LOAD AND MAKE RDY NSC 


30E07850 






0887 1 4400 


OAFS 




BSI 


L 


TYPE 




30E07860 






0889 1010 






SLA 




16 




30E07870 






088A 1 D400 


OAFO 




STO 


L 


WAS4 




30E07B80 






088C 1 OCOO 


0628 


INRST 


XIO 


L 


SNS1 


RESET UNSERVICEO INT 


30E07890 






088E 6500 


3000 


INWAT 


LDX 


LI 


/3000 


TIMIMG CONST 


30E0-7900 






0890 1 6D00 


0901 




STX 


LI 


IWTCT 


FOR TIMING LOOP 


30E07910 






0892 1 OCOO 


0628 


WATFR 


XIO 


L 


SNS1 


GET DSW 


30E07920 






0894 1 D400 


0AF1 




STO 


L 


WASI 




30E07930 






0396 1000 






NOP 






USE FOR TRAP 


30107940 






0897 1 4C98 


087D 




BSC 


I 


INPCH, +- 


BR IF RDY AND NORMAL 


3OEO79S0 






0899 1 E400 


0658 




AND 


L 


KFFFE 




30E07960 






089B 1 4C20 


08A5 




BSC 


L 


DSWEI, Z 


BR IF DSW INCORRECT 


30E07970 






089D 1 4C80 


087D 




BSC 


I 


INPCH 




30E07980 






089F 1 6500 


0892 


IRDYR 


LDX 


LI 


WATFR 


SET RETURN POONT 


30E07990 






08A1 1 6000 


05E6 




STX 


LI 


MLSCF+1 




3OE08O00 






08A3 1 4C00 


06AD 


* 


BSC 


L 


WAIT4 


CHK SW1 + RET TO MONITOR 


30E08010 
30E08020 






08A5 1 C400 


0AF1 


DSWEI 


LD 


L 


WASI 


INCORRECT DSW 


3060*030 






08A7 1 4C04 


08BB 




BSC 


L 


RDYER,E 


BR IN NRDY BIT ON 


30EOS040 






08A7 1 4C04 


08BB 




BSC 


L 


RDYER,E 


BR IN NRDY BIT ON 


30E08040 






08A9 C0D2 






LD 




KOOOl 




30E08050 






08AA 1 D400 


OAF 3 




STO 


L 


02BE 


SHOULD BE 


30608060 






08AC 1 74FF 


0901 


INMSG 


MDX 


L 


IWTCT, -1 


DECRE COUNT 


3OE08O70 






08AE 70F0 






MDX 




IRDYR 


BR TO MON 


30E08080 






08AF 6105 






LDX 


1 


5 


MSG NO 


30E08090 






08B0 6600 


0114 




LDX 


L2 


/0114 


WAS 02BE 


30E08100 






0882 1 6700 


0B20 




LDX 


L3 


AINIT 


INITIALIZING 


30E08110 






08B4 1 6F00 


OAEE 




STX 


L3 


ALPH2 




30E08120 






08B6 1 6700 


OB 16 




LDX 


L3 


ADSWE 


DSW ERROR 


30E08130 




DATr 


15JUN67 


09SEP67 


15FEB68 








PROG 10 


030E-0 


EC NO. 


420317 420317B 


420403 








PAGE 
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0868 1 4400 0AD5 
08BA 7001 
08BB COBF 
08BC 1 D400 0AF3 
08BE 3 70ED 



TYPE ERROR MSG 

BR TO RESET AND TRY AGN 

SHOULD BE 



BSI L ETYPE 

MDX INRST 
ROYER LD KOOOO 

STO L 02BE 

MDX INMSG • 
* 
♦I************************************************* 

* INITIALIZE 2501 SUBROUTINE 

*************************************************** 
* 

* THIS ROUTINE INITIALIZES THE 

* 2501 PRIOR TO STARTING ANY ROUTINE 



08BF 


1 


08C0 




• 
* 
INROR 


DC 


*- 


* 




08C0 





6500 


2501 




LDX 


LI 


/2501 


MACH TYPE 


08C2 


1 


6D00 


0AF7 




STX 


LI 


MACH 




08C4 





6101 






LDX 


1 


1 


MSG NO 


08C5 





6600 


0100 




LOX 


L2 


/0100 


OATA ID 


08C7 


1 


6700 


0B59 




LDX 


L3 


ALDMR 


LOAD NSG 


08C9 


1 


4400 


0AF8 


$ 


BSI 


L 


TYPE 




08CB 





1010 






SLA 




16 




08CC 


1 


0400 


OAFO 




STO 


L 


WAS4 




08CE 


1 


OCOO 


06 2 A 


RINRS 


XIO 


L 


SNS2 


RESET UNSERVICED INT 


0800 





6500 


3000 


RINWA 


LDX 


LI 


/3000 


TIMING CINST 


08D2 


1 


6D00 


0901 


£ 


STX 


LI 


IWTCT 


FOR TIMING LOOP 


08D4 


1 


OCOO 


062A 


RWATF 


XIO 


L 


SNS2 


GET OSW 


08D6 


1 


D400 


0AF1 




STO 


L 


WAS I 




08D8 





1000 






NOP 






USE FOR TRAP 


0809 


1 


4C98 


08BF 


* 


BSC 


I 


INROR, +- 


BR IF ROY AND NORMAL 


080B 


1 


E400 


0fc79 


AND 


L 


KEFFE 


REMOVE L/C AND NRDY BITS ' 


OBOO 


I 


4C20 


08E1 




BSC 


L 


RDSWE, Z 


BR IF DSW$ ERROR 


08DF 


1 


4C80 


08BF 




BSC 


I 


INRDR . 


RETURN TO TEST ROUTINE 


08E1 


1 


C400 


0AF1 


RDSWE 


LD 


L 


WASI 


GET ERROR OSW 


08E3 


1 


4C04 


08F7 




BSC 


L 


RRDYE tE 


ERROR AND NRDY 


08E5 





C096 






LD 




K0001 


PROPER DSW 


0&E6 


1 


0400 


0AF3 




STO 


L 


02BE 




08E8 


1 


74FF 


0901 


RINMS 


MDX 


L 


IWTCT. -1 


DEC COUNT 


08EA 





7010 






MOX 




RIRDY 




08EB 





6105 






LDX 


1 


5 


MSG NO 


08EC 





6600 


0114 




LOX 


L2 


/0114 


DATA 10 


08EE 


1 


6700 


0B20 




LDX 


L3 


AINIT 


' INUTIALIZING 


08F0 


1 


6F00 


OAEE 




STX 


L3 


ALPH2 




08F2 


1 


6700 


OB 16 




LOX 


L3 


AOSWE 


DSW ERROR 


08F4 


I 


4400 


0AD5 


* 


BSI 


L 


ETYPE 




08F6 





70D7 




* 

RRDYE 


MDX 




RINRS 


TRY TO RESET AGAIN 


08F7 





C083 




LO 




KOOOO 


READY DSW 


OBFB 


1 


0400 


0AF3 




STO 


L 


02BE 




08FA 





70ED 




$ 


MOX 




RINMS 




08FB 


1 


6500 


08D4 


. RIROY 


LDX 


LI 


RWATF 


RETURN POINT 


08F0 


1 


6D00 


05E6 




STX 


LI 


MLSCF+1 




08FF 


1 


4C00 


06AD 


* 
***** 


BSC 


L 


WAIT4 


CHK SW1 + RET TO MONITOR 










******************************************* 










* 






CHECK STATUS 1442 SUBROUTINE 










********************•****************#************* 










* 






THIS SUBROUTINE CHECKS FOR NRDY 










* 






OR LAST 


CARD ON THE 1442. IF L/C. 










* 






GO TO CONTROL FOR NEXT ROUTINE. 



DATE 

EC NO. 



15JUN67 
420317 



09SEP67 
420317B 



15FEB6B 
420403 



30E08140 
30E08150 
30E08160 
30E0B170 
30E0B1B0 
30E0B190 
30E0B2OO 
30E08210 
30EOB220 
30E0B230 
30E08240 
30E08250 
30E08260 
30E08270 
30E08280 
30E08290 
30E08300 
30EOB310 
30E08320 
30E08330 
30E08340 
3OE0B35O 
30E08360 
30E08370 
30E08380 
30E08390 
30E08400 
30E08410 
30E08420 
30E08430 
30E08440 
30E08450 
3 OE 084 60 
30E08470 
30E08480 
30E08490 
30E08500 
30E08510 
30E08520 
30E0B530 
30E0B540 
30E08550 
30E08560 
30E08570 
30E0B580 
30E0B590 
30E08600 
30E08610 
30E08620 
30E08630 
30E08640 
30E08650 
30E08660 
30E08670 
30E08680 
30E08690 
30E08700 
30E08710 
30E0872C 
30E08730 
30E08740 
30E08750 
30E06760 
30E08770 
30E08780 
30E0B790 
30E0880O 
30E08810 
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• 










30E08820 












* 










30E08830 






0901 





0000 


IWTCT 

* 


DC 




*-* 


WAIT LOOP COUNTER 


30E08840 
30E08850 






0902 





0000 


CHK 14 


DC 




*-* 




30E08860 






0903 





6500 1442 




LOX 


LI 


/1442 


MACH TYPE 


30E08870 






0905 


1 


6000 0AF7 




STX 


LI 


MACH 




30E08880 






0907 


1 


C400 OAFO 




LO 


L 


WAS4 


LAST OP COMP DSW 


30E08890 






0909 





1003 




SLA 




3 


CHECK LAST CARD 


30E08900 






090 A 


1 


4C10 0917 




BSC 


L 


CHRDY,- 


BR IF NOT LAST CARD 


30E08910 






09 OC 


1 


OCOO 0622 




XIO 


L 


FDACD 


FEED LAST CARD OUT 


30E08920 






090E 





6103 




LDX 


1 


3 


MSG NO 


30E08930 






090F 





6600 0100 




LOX 


L2 


/0100 


DATA ID 


30E08940 






0911 


1 


6700 0B03 




LDX 


L3 


ALCD 


LAST CARD 


30E08950 






0913 


1 


4400 OAF 8 




BSI 


L 


TYPE 




30E08960 






0915 


1 


4400 05FA 




BSI 


L 


CNTRL 


TO ROUTINE CONTROL 


30E0B970 






0917 





6500 3000 


CHRDY 


LDX 


LI 


/3000 




30E08980 






0919 


1 


6000 0901 




STX 


LI 


IWTCT 


FOR TIMING LOOP 


30E08990 






09 IB 


1 


OCOO 0628 


CROYL 


XIO 


L 


SNS1 


SENSE OSW 


30E09000 






0910 


1 


4C04 0921 




BSC 


L 


CWTFR, E 


BR IF NOT READY 


30E09010 






091F 


1 


4C80 0902 


* 


BSC 


I 


CHK 14 


RETURN IF READY 


30E09020 
30E09030 












* 






TIMING LOOP FOR NOT READY 


30E09040 






0921 


1 


74FF 0901 


CWTFR 


MDX 


L 


IWTCT, -1 


DECREMENT COUNT. 


30E09050 






0923 





7009 




MDX 




CRDYR 


LOOP UNTIL TIMEOUT 


30E09060 






0924 





6102 




LDX 


1 


2 


MSG NO 


30E09070 






0925 





6600 0100 




LDX 


L2 


/0100 


DATA ID 


30E09080 






0927 


1 


6700 0B09 




LDX 


L3 


ANRDY 


NOT READY 


30E09090 






0929 


1 


4400 OAFB 




BSI 


L 


TYPE 




30E09100 






092B 


1 


4C00 0917 


* 


BSC 


L 


CHRDY 




30E09110 
30E09120 






092D 


1 


6500 091B 


CRDYR 


LDX 


LI 


CRDYL 


SET RETURNTO MONITOR 


30E09130 






092F 


1 


6D00 05E6 




STX 


LI 


MLSCF+1 




30E09140 






0931 


1 


4C00 06AD 


• 


BSC 


L 


WAIT4 


CHK SWl ♦ RET TO MONITOR 


30E09150 
30E09160 












*************************************************** 


30E09170 












* 






CHECK STATUS 250a SUBROUTINE 


30E09180 












*************************************************** 


30E09190 












* 










30E092O0 












* 






THIS SUBROUTINE CHECKS FOR NRDY OR 


30E09210 












* 






LAST CARD 


ON THE 2501. IF L/C, IT 


30E09220 












* 






LINKS TO 


THE CONTROL ROUTINE 


30E09230 
30E09240 
30E09250 












* 




















* 










30E09260 






0933 





0000 


CHK25 


OC 




*-* 




30E09270 






0934 





6500 2501 




LDX 


LI 


/2501 


MACH TYPE 


3OE09280 






0936 


1 


6000 0AF7 




STX 


LI 


MACH 




30E09290 






0938 


1 


C400 OAFO 




LO 


L 


WAS4 




30E09300 






093A 





1003 




SLA 




3 


CHECK FOR LAST-CARD 


30E09310 






093B 


1 


4C10 0946 




BSC 


L 


RCHRD, - 


BR IF NOT LAST CARD 


3OE09320 






093D 





6103 




LDX 


1 


3 


MSG NO 


30E09330 






093E 





6600 0100 




LDX 


L2 


/0100 


DATA 10 


30E09340 






0940 


1 


6700 0303 




LDX 


L3 


ALCD 


LAST CARD 


30E09350 






0942 


1 


4400 OAFS 


• 


BSI 


L 


TYPE 




30E09360 
30E09370 






0944 


1 


4400 05FA 


* 


BSI 


L 


CNTRL 


RETURN TO SEO CONTROL 


30E09380 
30E09390 






0946 





6500 3000 


RCHRD 


LDX 


LI 


/3000 




30E09400 






0948 


1 


6000 0901 




STX 


LI 


IWTCT 


FOR TIMING LOOP 


30E09410 






094A 


1 


OCOO 062A 


RCRDY 


XIO 


L 


SNS2 


SENSE 2501 DSW 


30E 09420 






094C 


1 


4C04 0950 




BSC 


L 


RCWTF, E 


BR IF NOT READY 


30E09430 






094E 


1 


4C80 0933 


• 


BSC 


I 


CHK25 


RETURN TO TEST ROUTINE 


30E09440 
30E09450 






0950 


1 


74FF 0901 


RCWTF 


MOX 


L 


IWTCT, -1 


DECREMENT COUNT 


30E09460 






0952 





7008 




MOX 




RCRYR 




30E094 70 


. 




0953 





6102 




LDX 


1 


2 


MSG NO 


30E09480 






0954 





6600 0100 




LOX 


L2 


/0100 


DATA 10 


30E09490 




DATE 


15JUN67 09SEP67 


15FEB68 








PROG ID 


030E-0 


EC NO. 


420317 420317B 


420403 
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PART NO. 
PAGE 



2243550 
8A 



0956 1 6700 0B09 
0958 1 4400 0AF8 

095A 70EB 
095B 1 6500 094A 
0950 1 6000 05E6 
095F 1 4C00 06A0 



LOX 
BSI 



L3 ANRDY 
L TYPE 



NRDY 



0961 
0962 
0963 
0964 
0966 
0968 
096 A 
096C 
0960 
096F 
0971 
0973 
0974 
0976 
0977 



0000 

1 0A32 
0000 

6500 

1 6000 
C480 
0400 
D0F4 
7401 
8480 
9400 
DOEE 

1 C480 

0030 

1 7401 



1442 
0AF7 
0963 
0626 

0963 
0963 
087C 

0963 

0963 



0979 1 C480 0962 
097B 1 ECOO 0657 
097D 1 D480 0962 

097F 1 OCOO 0624 
0981 1 4400 069C 



0983 
0985 
0987 
0989 
096B 
09 8D 
098F 
0991 
0993 

0995 
0996 
0998 
099A 
099B 
099D 
099F 
09A0 
09 A2 
09 A4 
09 A6 



1 74FF 

1 C480 

1 F480 

1 4C20 

1 7401 

1 C480 

1 E400 

1 0480 

1 4C80 



C011 

1 0400 
C400 
90C6 
8400 
0400 
6106 
6600 
6700 
4400 
70E6 



0626 
0962 
0626 
0995 
0963 
0962 
0656 
0962 
0963 



0AF6 
0626 

087C 
0AF4 

01A0 
0B46 
0A05 



09A7 0000 



TRY AGAIN 

SET RETURN POINT 

CHK SU1 ♦ RET TO MONITOR 



MDX RCHRD 
RCRVR LDX LI RCRDV 

STX LI MLSCF+1 
BSC L HAIT4 

* 
*»»**»»**»»»»»****«**»»*»***»»»**»*»*»»»**»*♦*** 

* PUNCH A CARD ROUTINE 
************************************************ 
* 

* THIS SUBROUTINE PUNCHES A CARD 

* ANO CHECKS THAT THE PROPER NUMBER OF 

* COLUMNS MERE PUNCHED 



PBGAD DC 
TERAD DC 
PNCH DC 
LOX 
STX 
LO 
STO 
STO 
MDX 
A 
S 

STO 
LD 
STO 
MDX 
* 

LD 
OR 
STO 

XIO 

BSI 

MDX 

LD 

EOR 

BSC 

MDX 

PRTN LO 
AND 
STO 
BSC 

• 

PUNEN LD 
STO 
LD 
S 
A 

STO 
LDX 
LDX 



*-* 

WAREA 

*-* 
LI /1442 
LI MACH 



PNCH 

PUNCH 

PBGAD 

PNCHt+1 

PNCH 

K0001 

TERAD 

PNCH 

COLND 

PNCH.+l 



I TERAD 

L K0008 

I TERAD 

L PCHST 

L WAIT 



L 
L 

L 
L 

1 
L2 



LDX L3 
BSI L 

MDX 



PUNCH, -1 

TERAD 

PUNCH 

PUNEN, Z 

PNCH,+1 

TERAD 

KFFF7 

TERAD 

PNCH 

COLND 

COLCT 

PUNCH 

PBGAD 

K0001 

COL 

6 

/01A0 

ACCER 

ETYPE 

PRTN 



COLND DC 

* 



BEGINNING ADDRESS 
TERMINATOR ADDRESS 

MACH TYPE 

GET START ADDRESS 
PLACE IN IOCC 
BEGINNING ADDRESS 

ADD NO OF COLS 

NEW ADDRESS 

GET NUM COL DATA 

SAVE DATA 



FETCH TERM CHAR 
APPLY TERM BIT 



START PUNCH 
WAIT FOR OP COMP 

TO LAST CHAR PUNCHED 
LOAD PROPER LAST CHAR 

BR IF UNUSUAL END 
TO NORMAL RETURN 

REMOVE PREVIOUS 

TERMINATOR 

RETURN 

GET NUM COLUMNS 
COL COUNT SHOULD BE 
LAST ADDRESSS 
BEGIN ADDR 

COL COUNT HAS 

MSG NO 

DATA ID 

COL COUNT ERROR 



SAVE DATA HOLDER 



READ A CARD ROUTINE 



DATE 
EC NO. 



15JUN67 
420317 



09SEP67 
420317B 



15FEB68 
420403 



30E09500 

30E095I0 

30E09520 

30E09530 

30E09540 

30E09550 

30E09560 

30E09570 

30E09580 

30E09590 

30E09600 

30E09610 

30E09620 

30E09630 

30E09640 

30E09650 

30E09660 

30E09670 

30E09680 

30E09690 

30E09700 

30E09710 

30E09720 

30E09730 

30E09740 

30E09750 

30E09760 . 

30E09770 

30E09780 

30E09790 

30E09800 

30E09810 

30E09820 

30E09830 

30E09840 

30E09850 

30E09860 

30E09870 

30E09880 

30E09890 

30E09900 

30E09910 

30E09920 

30E09930 

30E09940 

30E09950 

30E09960 

30E09970 

30E09980 

30E09990 

30E10000 

30E10010 

30E10020 

30E10030 

30E 10040 

30E10050 

30E10060 

30E10070 

30E1008C 

30E10090 

30E10100 

30E10110 

30E10120 

30E10130 

30E10140 

30E10150 

30E10160 

30E10170 



PROG ID 
PAGE 



030E-0 
8 









* 








30E10180 










* 




THIS ROUTINE READS A CARD INTO 


30E10190 










* 




THE READ AREA. 


30E10200 






• 




* 
• 








- 30E10210 
30E10220 
30E10230 






09A8 0000 




RAREA DC 




«-* 


WORD COUNT 


30E10240 






09A9 0050 




BSS 




80 


AREA 


30E10250 






09F9 0001 




DC 




/0001 


TERMINATOR FOR LENGTH 


30E10260 






09FA 0000 




ROACD DC 




«— ft 


RETURN ADDR 


30E10270 






09FB 6500 


2501 


LDX 


LI 


/2501 


MACH TYPE 


30E10280 






09FD 1 6D00 


0AF7 


STX 


LI 


MACH 




30E10290 






09FF 1 C400 


087C 


LO 


L 


K0001 


TO CLEAR READ AREA TO 


30E10300 






0A01 6150 




LDX 


1 


80 


ALL TERMINATORS 


30E10310 






0A02 1 D500 


09A8 


RDACR STO 


LI 


RAREA 




30E10320 






0A04 71FF 




MDX 


1 


-1 




30E10330 






0A05 70FC 




MDX 




RDACR 




30E10340 






0A06 1 C480 


09FA 


LD 


I 


RDACD 


FETCH NO OF COLS 


30E10350 






0A08 1 D400 


09A8 


STO 


L 


RAREA 


STO AT WORD COUNT 


30E10360 






OAOA 1 7401 


09FA 


MDX 


L 


RDACD, +1 


TO RETURN 


30E10370 






OAOC 1 OCOO 


06 2C 


XIO 


L 


IREAD 


INITIATE READ 


30E10380 






OAOE 1 4400 


069C 


BSI 

** 


L 


WAIT 
CHECK FOR 


WAIT FOR OP COMP 
UNUSUAL END 


30E10390 
30E10400 






OA10 1 6580 


09A8 


LDX 


11 


RAREA 


ADDR OF LAXT CHAR 


30E10410 






0A12 1 C500 


09 A 8 


LD 


LI 


RAREA . 


LOAD LAST CHAR 


30E10420 






0A14 1 4C04 


0A1B 


BSC 


L 


RUNEN, E 


BR IF TERM STILL THERE 


30E 10430 






0A16 7101 




MDX 


1 


♦ 1 


TO NEXT CHAR 


30E 10440 






0A17 1 C500 


09A8 


LD 


LI 


RAREA 


POSITION AFTER LAST CHAR 


30E10450 






0A19 1 4C84 


09FA 


BSC 


I 


RDACD, E 


BR IF TERM NOT THERJE 


30E 10460 






0A1B 1 6580 


09 A 8 


RUNEN LDX 


11 


RAREA 


NO OF COLUMNS 


30E10470 






0A1D 1 6000 


0AF6 


STX 


LI 


COLCT 


SHOULD BE 


30E10480 






0A1F 6150 




LDX 


1 


80 




30E10490 






0A20 1 C500 


09A8 


RELD LD 


LI 


RAREA 


FIND LAST CHAR READ 


30E10500 






0A22 1 4C04 


0A2F 


BSC 


L 


RERFN, E 


BR IF NOT LAST CHAR 


30E10510 






0A24 1 6D00 


0AF4 


RENON STX 


LI 


COL . 


COL COUNT WAS 


30E10520 






0A26 6107 




t LDX 


1 


7 


MSG NO 


30E10530 






0A27 6600 


01A0 


LOX 


L2 


/01A0 


DATA !D 


30E10540 






0A29 1 6760 


0B46 


LDX 


L3 


ACCER 


COB COUNT ERROR 


30E10550 






0A2B 1 4400 


0AD5 


BSI 


L 


ETYPE 




30E10560 






0A2D 1 4C80 


09FA 


BSC 

* 


I 


RDACD 


RETURN TO TEST ROUTINE 


30E 10570 
30E10580 






0A2F 71FF 




RERFN MDX 


1 


-1 




30E10590 






0A30 70EF 




MOX 




RELD 




30E 10600 






0A31 70F2 




MDX 

» 




RENON 




30E10610 
30E10620 










#*****#**##se»*« ******** ************************ 


30E10630 










»*«** 




WRITE AREA 


FOR PUNCH 


30E10640 










»**«*»*»*»**$*»*»*»«*»**»»»♦»»»«***»»»*«»****»»* 


30E10650 










ft 








30E10660 






0A32 8010 




WAREA DC 




/8010 


COLUMN 1 


30E10670 






0A33 4020 




DC 




/4020 




30E10680 






0A34 2040 




DC 




/2040 




30E 10690 






OA35 1080 




DC 




/1080 




30E 10700 






0A36 0900 




DC 




/0900 




30E10710 






0A37 0600 




DC 




/0600 




30E10720 






0A38 0600 




DC 




/0600 




30E10730 






0A39 0900 




DC 




/0900 




30E 10740 






0A3A 1080 




DC 




/1080 




30E10750 






0A3B 2040 




DC 




/2040 




30E10760 






0A3C 4020 




DC 




/4020 




30E10770 






0A3D 8010 




DC 




/8010 




30E10780 






0A3E FFF7 




DC 




/FFF7 




30E10790 






0A3F 6880 




DC 




/8880 




30E 10800 






0A40 CCCO 




DC 




/CCCO 




30E10810 






0A41 EEEO 




DC 




/EEEO 




30E10820 






UA42 FFFO 




DC 




/FFFO 




3CE10830 






0A43 7777 




DC 




/7777 




30E10840 






0A44 3333 




DC 




/3333 




30E10850 




DATE 


15JUN67 09SEP67 


15FEB68 




- 




PROG ID 


030E-0 


EC NO. 


420317 420317B 


420403 
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PART NO. 
PAGE 



2243550 
9A 





0A45 1111 


DC 


/llll 




0A46 FFF7 


DC 


/FFF7 




0A47 AOOO 


DC 


/AOOO 




0A48 9000 


DC 


/9000 




0A49 8800 


DC 


/8800 




0A4A 8400 


DC 


/8400 




0A4D 8200 


DC 


/8200 




0A4C 3 8100 


DC 


/S100 




0A4D 8080 


DC 


/8080 




0A4E 8040 


DC 


/8040 




0A4F 8020 


DC 


/8020 




0A50 8010 


DC 


/8010 




0A51 5000 


DC 


/5000 




0A52 4800 


DC 


/4800 




0A53 4400 


DC 


/4400 




0A54 4200 


DC 


/4200 




0A55 4100 


DC 


/4100 




0A56 4080 


DC 


/4080 




0A57 4040 


DC 


/4040 




0A56 4020 


DC 


/4020 




0A59 4010 


DC 


/4010 




0A5A 3000 


DC 


/3000 




0A5B 2800 


DC 


/2800 




0A5C 2400 


DC 


/2400 




0A5D 2200 


DC 


/2200 




0A5E 2100 


DC 


/2100 




0A5F 2080 


DC 


/2080 




0A60 2040 


DC 


/2040 




0A61 2020 


DC 


/2020 




0A62 2010 


DC 


/2010 




0A63 0000 


DC 


/OOOO 




0A64 FCOO 


DC 


/FCOO 




0A65 03F0 


DC 


/03F0 




0A66 FCOO 


DC 


/FCOO 




0A67 03F0 


DC 


X03F0 




0A68 0000 


DC 


/BOOO 




0A69 8887 


DC 


/8887 




0A6A 4444 


DC 


/4444 




0A6B 2222 


DC 


/2222 




0A6C 1111 


DC 


/llll 




0A6D 0007 


DC 


/0007 




0A6E 8880 


DC 


/B880 




0A6F CCC4 


DC 


/CCC4 




0A70 AAA2 


DC 


/AAA2 




0A71 9991 


DC 


/9991 




OA72 4444 


DC 


/4444 




0A73 6666 


DC 


/6666 




0A74 5555 


DC 


/5555 




0A75 2222 


DC 


/2222 




0A76 3333 


DC 


Z3333 




0A77 1111 


DC 


/mi 




0A78 0005 


DC 


/0005 




0A79 0006 


DC 


/0006 




0A7A FFF7 


DC 


/FFF7 




0A7B FFF7 


DC 


./FFF7 




0A7C FFF7 


DC 


/FFF7 




" 0A7D FFFO 


DC 


/FFFO 




0A7E FFFO 


DC 


/FFFO 




0A7F FFFO 


DC 


/FFFO 




0A80 FFFO 


DC 


/FFFO 




0AB1 0000 . 


DC 


/OOOO 




0A82 8010 


MARA2 OC 


/8010 




0A83 4020 


DC 


/4020 




0A84 2040 


DC 


/2040 




0A85 1080 


OC 


/1080 




0AB6 0900 


DC 


/0900 




0A87 0600 


DC 


/0600 




0A88 0600 


DC 


/0600 


DATE 


15JUN67 09SEP67 


15FEB68 




EC NO. 


420317 420317B 


420403 





COL 21 
ALPHA RIPPLE 

COL 26 



COL 40 WAREA+39 



CHECK PCH TERM 



COL 1 



30E10860 

30E10870 

30E10880 

30E10890 

30E10900 

30E10910 

30E10920 

30E10930 

3 OE 10940 

30E10950 

30E10960 

30E10970 

30E10980 

30E10990 

30E11000 

30E11010 

30E11020 

30E11030 

30E11040 

30E11050 

30E11060 

30E11070 

30E11080 

30E11090 

30E11100 

30E11110 

30E11120 

30E11130 

30EU140 

30E11150 

30E11160 

30E11170 

30E11180 

30E11190 

30E11200 

30E11210 

30E11220 

30E11230 

30E11240 

30E11250 

30E11260 

30E11270 

30E11280 

30E11290 

30E11300 

30E11310 

30E11320 

30E11330 

30E11340 

30E11350 

30E11360 

30E11370 

30E113G0 

30E11390 

30E11400 

30E11410 

30E11420 

30E11430 

30E 11440 

30E11450 

30E11460 

30E11470 

30E114B0 

30E11490 

30E11500 

30E11510 

30E11520 

30E11530 



PROG ID 
PAGE 



030E-0 
9 





0A89 0900 


DC 


/0900 




0A8A 1080 


DC 


/1080 




0A8B 2040 


DC 


/2040 




0A8C 4020 


DC 


/4020 




0A8D 8010 


DC 


/8010 




0A8E FFF7 


DC 


/FFF7 




0A8F 8880 


DC 


/8M0 




0A90 CCCO 


DC 


/CCCO 




0A91 EEEO 


DC 


/EEEO 




0A92 FFFO 


OC 


/FFFO 




0A93 7777 


DC 


/rm 




0A94 3333 


DC 


/3333 




0A95 llll 


DC 


/mi 




0A96 FFF7 


DC 


/FFF7 




0A97 AOOO 


DC 


/AOOO 




0A98 9000 


DC 


/9000 




0A99 8800 


DC 


/8800 




0A9A 8400 


DC 


/8400 




0A9B 8200 


DC 


/S200 




0A9C 8100 


DC 


/6100 




0A90 8080 


DC 


/8080 




0A9E 8040 


DC 


/8040 




0A9F 8020 


DC 


/8020 




OAAO 8010 


DC 


/8010 




0AA1 5000 


DC 


/5000 




0AA2 4800 


DC 


/4800 




0AA3 4400 


DC 


/4400 




0AA4 4200 


DC 


/4200 




0AA5 4100 


DC 


/4100 




0AA6 4080 


DC 


/4O80 




0AA7 4040 


DC 


/4O40 




0AA8 4020 


DC 


/4020 




0AA9 4010 


DC 


/4010 




OAAA 3000 


DC 


/3000 




OAAB 2800 


DC 


/2800 




OAAC 2400 


DC 


/2400 




OAAO 2200 


DC 


/2200 




OAAE 2100 


OC 


/2100 




OAAF 2080 


DC 


/2080 




OABO 2040 


DC 


/2040 




0AB1 2020 


DC 


/2020 




0AB2 2010 


DC 


/2C10 




0AB3 OOOO 


DC 


/OOOO 




0AB4 FCOO 


DC 


/FCOO 




0AB5 03F0 


OC 


/03F0 




0AB6 FCOO 


DC 


/FCOO 




0AB7 03FO 


DC 


/03F0 




0AB8 OOOO 


DC 


/OOOO 




0AB9 8887 


DC 


/8887 




OABA 4444 


DC 


/4444 




OABB 2222 


0C . 


/2222 




OABC llll 


DC 


/llll 




OABD 0007 


DC 


/0007 




OABE 8880 


DC 


/8880 




OABF CCC4 


DC 


/CCC4 




OACO AAA2 


DC 


/AAA2 




0AC1 9991 


DC 


/9991 




0AC2 4444 


DC 


/4444 




0AC3 6666 


DC 


/6666 




0AC4 5555 


DC 


/5555 




0AC5 2222 


DC 


/2222 




0AC6 3333 


DC 


/3333 




0AC7 llll 


DC 


/llll 




0AC8 0005 


DC 


/0005 




0AC9 0006 


DC 


/0006 




OACA FFF7 


DC 


/FFF7 




OACB FFF7 


DC 


/FFF7 




OACC FFF7 


DC 


/FFF7 


DATE 


15JUN67 09SEP67 


15FEB68 




EC NO. 


420317 420317B 


420403 





COL 21 
ALPHA RIPPLE 

COL 26 



COL 40 WAREA+39 



CHECK PCH TERM 



3 OE 11 540 

30E11550 

30E11560 

30E11570 

30E11580 

30E 11590 

30E11600 

30E11610 

30E11620 

30E11630 

30E11640 

30E11650 

30E11660 

30E 11670 

30E11680 

30E11690 

30E 11700 

30E11710 

30E11720 

30E11730 

30E11740 

30E11750 

30E11760 

30E11770 

30E11780 

30E11790 

30E11B00 

30E11810 

30E11820 

30E11830 

30E11840 

30E11850 

30E11860 

30E11870 

30E11880 

30E11890 

30E11900 

30E11910 

30E11920 

30E11930 

30E11940 

30E11950 

30E11960 

30E11970 

30E11980 

30E11990 

30E12000 

30E12010 

30E12020 

30E12030 

30E12O40 

30E12050 

30E12060 

30E12070 

30E12080 

30E 12090 

30E12100 

30E12110 

30E12120 

30E12130 

3OE12140 

3OE12150 

30E12160 

30E12170 

30E12180 

30E12190 

30E12200 

30E12210 
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OACD FFFO 




OC 


/FFFO 


OACE FFFO 




DC 


/FFFO 


OACF FFFO 




DC 


/FFFO 


OAOO FFFO 




DC 


/FFFO 


0AD1 0000 


C0L80 


OC 


/OOOO 


0AD2 1 0AD1 


KAREN 


DC 


COL 80 



************************************************ 

* MESSAGE OUT SUBROUTINE 

* 

* THIS ROUTINE HANDLES LOG AND 

* ERROR MESSAGES. LINKAGE TO EITHER 

* ROUTINE VIA BSI WITH MESSAGE NUM 

* IN XR1, DATA ID WORD IN XR2, AND 

* ALPHA1 ADDRESS IN XR3. IF ALPHA2 

* ADDRESS IS REQUIRES, IT MUST BE 

* SET UP IN MAINLINE. 



0AD3 





8000 




* 
* 
K8000 


DC 


/8000 




0AD4 





0000 




LN1SN 


OC 


*-* 


FIUST LINE SWITCH 


0AD5 





0000 




ETYPE 


DC 


»-♦ 




0AD6 





6913 






STX 


1 MSGNO 




0AD7 





6A14 






STX 


2 DATIO 




0AD8 





6814 






STX 


3 ALPH1 




0AD9 


1 


7400 


0AD4 




HDX 


L LNlSWtO 


SKIP IF FIRST LINE 


OADB 





7008 






MOX 


ETYP2 


BR IF 2ND LINE 


OADC 





4480 


0162 


ETYP3 


BSI 


I ERROR 




OADE 


1 


OAEA 






OC 


MSGNO 




OADF 





0000 




REPT3 


DC 


*-* 


LOOP ADDRESS 


QAEO 





1010 






SLA 


16 


CLEAR ALPH2 


0AE1 





DOOC 






STO 


ALPH2 


FOR NEXT MA6 


0AE2 


1 


4C80 


0A05 


£ . 


BSC 


I ETYPE 




0AE4 





C007 




ETYP2 


LD 


DATIO 


FOR 2ND LINE 


0AE5 





E8ED 






OR 


K8000 


ADD MULT LINE BIT 


0AE6 





D005 






STO 


DATIO 




0AE7 





1010 






SLA 


16 




0AE8 





0004 






STO 


ALPH1 


CLEAR HEADING 


0AE9 





70F2 






MDX 


ETVP3 





MESSAGE AREA 



OAEA 





0000 


MSGNO 


DC 


*-* 


OAEB 





OOEO 




OC 


/OOEO 


OAEC 





0000 


DATID 


OC 


*-* 


OAED 





0000 


ALPH1 


DC 


*-* 


OAEE 





0000 


ALPH2 


DC 


*-* 


OAEF 





0000 


HASO 


DC 


*-* 


OAFO 





0000 


WAS4 


DC 


*-* 


0AF1 





0000 


NASI 


DC 


*-* 


0AF2 





0000 


HASO 


DC 


*-* 


CAF3 





0000 


02BE 


DC 


*-* 


0AF4 





0000 


COL 


DC 


*-* 


OAFS 





0000 


MOCNT 


DC 


•-• 


0AF6 





0000 


COLCT 


DC 


*-* 


0AF7 





0000 


MACH 

* 


DC 


*-* 


OAF 8 





0000 


* 
TYPE 


■OC 


»-» 


0AF9 





69F0 




STX 


1 MSGNO 


OAFA 





6AF1 




STX 


2 DATID 


DATE 15JUN67 09SEP67 


15FEB68 




EC NO. 420317 


420317B 


420403 





MESSAGE NUMBER 
HEX-OEC SWITCH 
DATA ID 

ALPHA ADDRESS 1 
ALPHA ADRESS 2 
DSW LEVEL WAS 
DSW LEVEL 4 WAS 
DSW INITIALLY WAS 
DATA WAS 
DSW SHOULD BE 
ERROR COLUMN 
WORD COUNT 
COLUMN COUNT S/B 
MACHINE TYPE 



30E12220 

30E12230 

30E12240 

30E12250 

30E12260 

30E12270 

30E 12280 

30E12290 

30E12300 

30E12310 

30E12320 

30E12330 

30E12340 

30E12350 

30E12360 

30E12370 

30E12380 

30E12390 

30E 12400 

30E 12410 

30E 12*20 

30E12430 

30E12440 

30E12450 

30E 12460 

30E 12470 

30E12480 

30E 12490 

30E12500 

30E12510 

30E12520 

30E12530 

30E12540 

30E12550 

30E12560 

30E12570 

30E12580 

30E12590 

30E12600 

30E12610 

30E12620 

30E 12630 

30E12640 

30E12650 

30E12660 

30E12670 

30E12680 

30E12690 

30E12700 

30E12710 

30E 12720 

30E 12730 

30E12740 

30E12750 

30E12760 

30E12770 

30E12780 

30E12790 

30E12800 

30E12810 

33E12820 

30E12830 

30E12840 

30E12850 

30E 12860 

30E12870 

30E 12880 

30E12890 



PROG 10 
PAGE 



OAFB 6BF1 




STX 


3 


ALPH1 


OAFC 4480 


0163 


BSI 


I 


LOG 


OAFE 1 OAEA 




DC 




MSGNO 


OAFF 1010 




SLA 




16 


OBOO DOED 




STO 




ALPH2 


0B01 1 4C80 


OAFS 


BSC 


I 


TYPE 



**•*******•*•**•*****•**********•***•***•*•••*•* 
***** MESSAGE AREA *•*•**•**••****•*• 

*•«*******<<***«***««*«»««#*******»««*•••*••***•* 

* 



030E-0 
10 









* 




OB 03 


5E3E 


ALCD DC 




0B04 


9A9E 


DC 




OB 05 


211E 


DC 




0B06 


3E62 


DC 




OB 07 


3221 


DC 




0B08 


FFFF 


DC 

• 




OB 09 


7662 


* 

ANRDY DC 




OBOA 


32A6 


DC 




OB OB 


FFFF 


OC 

* 

ALVL4 DC 




OBOC 


5636 




OBOD 


B636 


DC 




OBOE 


5E21 


DC 




OBOF 


FOOO 


DC 




0B10 


FFFF 


DC 

• 

ALVLO DC 




0B11 


5E36 




0B12 


B636 


OC 




0B13 


5E21 


DC 




0B14 


C400 


OC 




0B15 


FFFF 


DC 
• 
ADSWE OC 




0B16 


923E 




0B17 


9A21 


DC 




OBI 8 


219A 


OC 




0B19 


BC1A 


DC 




0B1A 


2121 


OC 




0B1B 


329A 


DC 




0B1C 


9221 


DC 




0B1D 


3662 


DC 




0B1E 


6200 


DC 




0B1F 


FFFF 


DC 




0B20 


2276 


AINIT DC 




0B21 


229E 


OC 




0B22 


223E 


DC 




0B23 


5E22 


DC 




0B24 


A222 


DC 




0B25 


7616 


DC 




0B26 


FFFF 


OC 






0B27 


923E 


ADTAE DC 




0B28 


9A21 


OC 




0B29 


219A 


DC 




0B2A 


BC1A 


DC 




0B2B 


2121 


DC 




0B2C 


1E52 


DC 




0B2D 


5E21 


DC 




0B2E 


2132 


OC 




0B2F 


3E9E 


DC 




0B30 


3E21 


DC 




0831 


3662 


OC 




0832 


6221 


DC 




0B33 


FFFF 


DC 


DATE 


15JUN67 09SEP67 


15FEB68 


EC NO. 


420317 420317B 


420403 



/5E3E 
/9A9E 
/211E 
/3E62 
/3221 
/FFFF 



/7662 
/32A6 
/FFFF 

/5E36 
/B636 
/5E21 
/FOOO 
/FFFF 

/5E36 
/B636 
/5E21 
/C400 
/FFFF 

/923E 
/9A21 
/219A 
/BOA 
/2121 
/329A 
/9221 
/3662 
/6200 
/FFFF 

/2276 
/229E 
/223E 
/5E22 
/A222 
/7616 
/FFFF 

/923E 
/9A21 
/219A 
/BC1A 
/2121 
/1E52 
/5E21 
/2132 
/3E9E 
/3E21 
/3662 
/6221 
/FFFF 



LAST CARD 
ST 
C 
AR 
D 



NRDY 
DY 



LEVEL 

VE 

L 

4 



LEVEL 

VE 

L 





S/B DSW ERR 



WAS 
S 

S 
/B 

DS 
W 
ER 
R 



INITIALIZING 

IT 

IA 

LI 

21 

NG 



WAS S/B COL DATA ERR 
S 

S 
/B 

CO 

L 

D 
AT 

A 

ER 

R 



30E12900 
30E12910 
30E12920 
30E 12930 
30E 12940 
30E 12950 
30E12960 
30E12970 
30E12980 
30E 12990 
30E 13000 
30E13010 
30E13020 
30E 13030 
30E13040 
30E13050 
30E 13060 
30E13070 
30E13080 
30E13090 
30E13100 
30E13110 
30E13120 
30E13130 
30E13140 
30E13150 
30E13160 
30E13170 
30E13180 
30E13190 
30E13200 
3OE13210 
30E13220 
30E13230 
3 OE 13 240 
30E13250 
30E13260 
30E13270 
30E13280 
30E13290 
30E 13300 
30E13310 
30E13320 
30E13330 
3 OE 13340 
30E13350 
30E13360 
30E13370 
30E13380 
30E13390 
30E 13400 
30E13410 
30E 13420 
30E 13430 
30E13440 
30E13450 
30E 13460 
30E13470 
30E13480 
30 El 3490 
30E 13500 
30E13510 
30E13520 
30E13530 
30E13540 
30E13550 
30E 13560 
30E13570 
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* 










30E13580 


0634 9A36 


ASETP 


DC 


/9A36 


SET PATT IN SM 0-11 


30E13590 


0835 9E21 




DC 


/9E21 


T 




30E 13 600 


0636 563E 




DC 


/563E 


PA 




30E13610 


0B37 9E9E 


• 


DC 


/9E9E 


TT 




30E13620 


0B38 2122 




DC 


/2122 


I 




30E13630 


0B39 7621 




DC 


/7621 


N 




30E13640 


0B3A 9A92 




DC 


/9A92 


SM 




30E13650 


0B3B 21C4 




DC 


/21C4 







30E13660 


063C 84FC 




DC 


/84FC 


-1 




30E13670 


0B3D FC21 




DC 


/FC21 


1 




30E13680 


0B3E 9E26 




DC 


/9E26 


THEN 


TN SM 12 


30E13690 


0B3F 3676 




DC 


/3676 


EN 




30E13700 


0B40 219E 




DC 


/219E 


T 




30E13710 


0B41 7621 




DC 


/7621 


N 




30E13720 


0B42 9A92 




DC 


/9A92 


SH 




30E13730 


0B43 21FC 




DC 


/21FC 


1 




30E13740 


0B44 D821 




DC 


/D821 


2 




30E13750 


0645 FFFF 


* 


DC 


/FFFF 






30E13760 
30E13770 


0B46 923E 


ACCER 


DC 


/923E 


WAS 


S/B COL COUNT ERR 


30E13780 


0B47 9A21 




DC 


/9A21 


S 




30E13790 


0B48 219A 




DC 


/219A 


s 




30E13800 


0B49 BC1A 




DC 


/BC1A 


/B 




30E13810 


0B4A 2121 




DC 


/2121 






30E13620 


0B4B 1E52 




DC 


/1E52 


CO 




30E13830 


0B4C 5E21 




DC 


/5E21 


L 




30E13840 


0B40 1E52 




DC 


/1E52 


CO 




30E13850 


0B4E B276 




DC 


/B276 


UN 




30E13860 


0B4F 9E21 




OC 


/9E21 


T 




30E13870 


0B50 3662 




DC 


/3662 


ER 




30E13880 


0B51 6221 




DC 


/6221 


R 




30E13890 


0B52 FFFF 


• 


DC 


/FFFF 






30E13900 
30E13910 


0B53 7652 


AN I NT 


DC 


Z7652 


NO INTRPT 


30E13920 


0854 2122 




DC 


/?122 


I 




30E13930 


0B55 769E 




DC 


/769E 


NT 




30E13940 


0856 6256 




DC 


/6256 


RP 




30E13950 


0B57 9E21 




DC 


/9E21 


T 




30E13960 


0B58 FFFF 


* 


DC 


/FFFF 






30E13970 
30E13980 


0B59 5E52 


AtDMR 


DC 


/5E52 


LOAD 


AND MAKE RDY 


30E13990 


0B5A 3E32 




DC 


/3E32 


AD 




30E14000 


0B5B 213E 




DC 


/213E 


A 




30E14010 


0B5C 7632 




DC 


/7632 


NO 




30E 14020 


0B5D 2172 




DC 


/2172 


N 




30E14030 


0B5E 3E5A 




DC 


/3E5A 


AK 




30E14040 


0B5F 3621 




DC 


/3621 


E 




30E14050 


0B60 6232 




DC 


/6232 


RD 




30E14060 


0B61 A621 




DC 


/A621 


Y 




30E 14070 


0B62 FFFF 




DC 


/FFFF 






30E14080 


0864 05EB 




END 


BG1N 






30E 14090 


NO STATEMENTS 


FLAGGED IN 


THE 


ABOVE ASSEMBLY 









DATE 
EC NO. 



15JUN67 
420317 



09SEP67 
420317B 



15FEB68 
420403 
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C R 


S S 1 


REFERENCE 




NAME 


VALUE 


REFERENCES 




ACCER 


0B46 


09A2,0A29 




ADSWE 


0816 


0672,068E,08B6,08F2 




ADTAE 


0B27 


071F,0783i081A 




AINIT 


0B20 


0BB2.08EE 




ALCD 


0B03 


0911,0940 




ALDMR 


0B59 


0885, 08C7 




ALPH1 


OAED 


OAD8,OAE8,0AFB 




ALPH2 


OAEE 


0670,068C,06BC,08B4,OBFO,OAE1«0&00 




ALVLO 


0B11 


068A 




ALVL4 


OBOC 


066E.066A 




AN I NT 


0B53 


06BE 




ANRDY 


0B09 


0927,0956 




ASETP 


0B34 


0799, 07DA 




BEGIN 


0160 


05E8 




BGIN 


05E8 


0B64 




CHK14 


0902 


06D2, 0748, 07B9, 0830, 091F 




CHK25 


0933 


06F3, 0732, 0741, 0752, 0760, 07F2, 0835, 0845, 0862, 094E 




CHRDY 


0917 


090A,092B 




CNTRL 


05FA 


05F9,06B3,0915,0944 




CN10 


05FE 


• 




CN20 


0605 


05FC 




CN30 


060B 


0600 




COL 


0AF4 


070C,070E,077E,080F,099D,OA24 




COLCT 


0AF6 


0996, 0A1D 




COLND 


09A7 


0976,0995 




C0L80 


0AD1 


0AD2 




CRDYL 


091B 


092D 




CRDYR 


0920 


0923 




CWTFR 


0921 


091D 




DATID 


OAEC 


0AD7, 0AE4, 0AE6, OAFA 




DSMAN 


06 5C 


0644, 064F 




DSWEI 


08A5 


089G 




DSWEO 


067B 


0650,0694 




0SW1A 


0630 


05E0.0630 




DSW4A 


063F 


05F 1,0648 




DSWhB 


064A 


05F5,0653 




END 


0164 


0609 




ERLCK 


0166 






ERROR 


0162 


OADC 




ETYPE 


0AD5 


0674, 0690, 06C0, 0721, 0785, 081C,08B8,08F4,09A4,OA2B,OAE2 




ETYP2 


0AE4 


OADB 




ETYP3 


OADC 


0AE9 




EOLCC 


0696 


067E 




EORTN 


0692 


0699 




EOTYP 


0680 


069B 




FDACD 


0622 


090C 




ILO 


017A 


05EF 




IL1 


018A 


•• - 




IL2 


019A 


» 




IL3 


01AA 






IL4 


01BA 


05F3,05F7 




INMSG 


08AC 


08BE 




INPCH. 


0P7D 


06C6, 0746, 0791, 082C, 0897, 0890 




INRDR 


08BF 


06E4,072E,073F, 0750, 07D2, 082A, 0843, 0859, 08D9,08DF 




INRST 


088C 


08BA 




INWAT 


088E 






1RDYR 


089F 


08AE 




I RE AD 


06 2C 


0864, OAOC 




IWTCT 


0901 


0890, 08AC,08D2,08E8, 09 19, 0921, 0948,0950 




KEFFE 


0679 


0664, 08DB 




KFFFE 


0658 


0899 




KFFPO 


0659 


06FE,0712,076A,0777,0812 




KFFF7 


0656 


07B2,0805,098F 




KOOOO 


087B 


08BB,08F7 




K0001 


087C 


08A9,08E5,0971,099B.09FF 




K0008 


0657 


097B 


DATE 


15JUN67 09SEP67 15FEB68 


EC NO. 


420317 420317B 420403 
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K0050 

K0800 

K1000 

K4003 

KSOOO 

LN1SU 

LOG 

LOGBY 

LRTN 

MACH 

HLSCF 

MSGNO 

NC0L1 

NC0L3 

NC0L6 

NC0L7 

NRTN 

02BE 

PBGAD 

PCHA1 

PCHST 

PIO 

PNCH 

PRTN 

PUNCH 

PUNEN 

RAD 

RAREA 

RCHRO 

RCRDY 

RCRYR 

RCWTF 

RDACD 

RDACR 

RDSWE 

RDYER 

RELD 

RENON 

REPT3 

RERFN 

RIO 

RIDCK 

R1NMS 

R1NRS 

RINWA 

R1RDY 

RLCF 

ROKB 

ROTY 

RRDYE 

RTA 

RTAA 

RTAA1 

RTAB 

RTAC 

RTADC 

RTAPC 

RTASW 

RTNOM 

RTNSW 

RTTBL 

RT1 

RT1A 

RT1B 

RT1C 

RT2 

RT2A 



065A 
0678 
067A 
0655 
0AD3 
0AD4 
0163 
0167 
0620 
0AF7 
05E5 
OAEA 
06D7 
0736 
07C4 
07FF 
0619 
0AF3 
0961 
0606 
0624 
050C 
0963 
0960 
0626 
0995 
05DE 
09A8 

0946 

094A 

095B 

0950 

09FA 

0A02 

08E1 

08BB 

0A20 

0A24 

OADF 

0A2F 

050D 

0615 

08E8 

08CE 

08D0 

08FB 

0168 

01BC 

01BB 

08F7 

0859 

0862 

0866 

086D 

0878 

0858 

0857 

0856 

0616 

0165 

0617 

06C6 

06C9 

0602 

06C8 

06E4 

06E7 



0738 
0661 
067C 
063A, 0681,0*84 

0AE5 

06F1, 0727, 075E. 0788, 07FB, 0822, 0AD9 

OAFC 

0615 

0880, 08C2, 0905,0936, 0966, 09FD 

0610,0646,0651, 06A2,06A5,07AD,07EE, 0868, 08A1,08FD,092F,095D 

0AD6, OAOE • 0AF9, OAFE 

0731,0737, 073C 

07C0,07CE 

07F9. 0800,0827 

0616 

0669, 0685,0714, 0779, 0814, 08AA,08BC,08E6,08F8 

096C099A 

0601,0609 

097F 

05EA * 

0604,074 A, 07C1, 0830, 0968, 0960 ,096F, 0974,0977, 098B, 0993 

09A6 

0635,0636, 096A, 0983, 0987, 0998 

0989 

062C*06FB, 0716, 074C, 0758, 0766,0771, 0802, 083F,084B,0A02,0A08,0A10 

OA12,OA17,OA1B,OA20 

093B.095A 

095B 

0952 

094C * 

06F5, 0734, 0743, 0754, 0762,07FD, 0837, 0847, 0A06,0A0A,0A19,0A2D 

0A05 
08DD 
08A7 
0A30 
0A31 

0A22 

05EC.05FE, 0604, 0605, 0607,0608.0681 

05FF 

08FA 

08F6 

08EA 



08E3 

0620 

0879 

0869 

086F 

0873 

0861,0860,0878 

0860,0875,0877 

08SB,0872 

0608 

0611 

0600,0615,0616 

0617 

06CE 

06D8,06DF 

06E1 

0618 

06EC 
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PROG ID 
PAGE 



030E-0 
12 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
2501/1442 MOD 5 DFT 



PART NO. 2243550 
PAGE 12A 



RT2B 
RT2C 
RT2CC 
RT2CS 
RT2D 
RT2DA 
RT2D1 
RT2D2 
RT2E 
RT2F 
RT3 
RT3A 
RT3D 
RT3E 
RT4 
RT4A 
RT5 
RT5A 
RT5B 
RT5C 
RT5D 
RT5D1 
RT5E 
RT6 
RT6A 
RT6B 
RT6C 
RT6D 
RT6E 
RT6F 
RT6& 
RT6H 
RT6SH 
RT7 
RT7A 
RT7B 
RT7C 
RT7D 
RT7E 
RT7F 
RT7FR 
RT7F1 
RT7G 
RT7H 
RT7SH 
■ RTB 
RT8A 
RTBSA 
RT9 
RT9A 
RT9B 
RUNEN 
RWATF 
SNSWS 
SNS1 
SNS2 
START 
STRT 
SVKB 
SHO 
SHI 
SW2 
SW3 
TERAD 
TYPE 
WAIT 
HAITI 
WAIT2 



06FB 

06F0 

06E2 

06E3 

06ED 

070C 

0729 

072B . 

0702 

0705 

072E 

0732 

0730 

0737 

073F 

0748 

0750 

0758 

075E 

0766 

0771 

0780 

076E 

0791 

0793 

07A1 

07AB 

07B1 

07B5 

07B9 

07C1 

07CE 

0790 

0702 

07D4 

07E? 

07EC 

07F2 

0802 

080C 

0809 

0824 

07FD 

0827 

0701 

082A 

0830 

0829 

0843 

0845 

084B 

0A1B 

08D4 

06 2E 

0628 

062A 

0161 

05EB 

01BD 

05DF 

05E0 

05E1 

05E2 

0962 

0AF8 

069C 

06A0 

06 A5 



0704 

070B 

0705 

06EF, 06F9, 0706, 0709 

0707 

0700 

071A 

07 IB 

072D 

0725 

0619 

07 3E 

073A 

061A 

074F 

0618 

075D 

0770,0789 

076F 

076C 

077B 

078F 

06 IC 

07AA 

07AB.07CB 

07A9 

07A6 

07B8 

07CD 

07D0 

07BD 

079D,07A3,07B1,07C8 

061D 

07EB 

07EC 

07E* 

07E7,080B,0820 

080A 

0807 

0826 

0816 

0828 

07 F6 

07DE,07E4, 0804, 080C, 0811 

06 IE 

0842 

082F,0832t083C 

061F 

0850 

0A14 

08FB 

O79F,O7Al,07C6,07E0.07E2. 0850,0870 

0631, 0640, 088C, 0892, 091B 

064B , 0866 ,08CE , 08D4 ,094A 

0613,06A7,06AF,06B5,07AF»07F0 

05E3,05E4,05E5»0854 



05FB, 0603, 06 AD, 0852 

07BB,07F4 

0723, 0787, 08 IE 

060B, 0973, 0979, 0970,0985, 0980,0991 

079B,07DC, 0887, 08C9, 0913. 0929, 0942, 0958, 0801 

0662, 0665, 0676, 0981, OAOE 

06AB 

06C4 
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WAIT3 

WAIT4 

WA1T5 

KARA2 

UAREA 

HAREN 

WASD 

MASI 

NASO 

NAS4 

WATFR 

WCNT 

WDCNT 

MTCNT 

XERR 



06A9 
06AO 
06B7 
OA82 
OA32 
0AD2 
0AF2 
0AF1 
OAEF 
OAFO 
0892 
06C5 
OAFS 
087A 
065B 



O6A0 

06A4,08A3,08FF,0931,095F 

06AC 

06C9,06E2,06E7,084D 

0626 ,06CB,06CF,06E9,06ED,075A ,0768, 0775, 0785, 07C3.07C9, 0962 

06DD 

0718,0773,0800 

0894, 08A5, 0806, 08E1 

0632,0638,0682 

0641, 06 4C,065F, 0667, 0696, 0833, 083A,088A,08CC, 0907, 0938 

089F 

069F,06A9 

0795,07A7,07D6,07E8 
0638, 063C065C, 0680,0693 



END OF ASSEMBLY 
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2. PREREQUISITES j 

2.1 PROGRAM PREREQUISITES 

2.2 EQUIPMENT PREREQUISITES 

3. OPERATING PROCEDURE 1A 
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5.1 TEST PROCEDURE 

5.1.1 TEST ORGANIZATION 

5.1.2 ERROR CHECKING 

5.2 ROUTINE DESCRIPTION 

5.2.1 TEST SEQUENCE CONTROL ROUTINE - CNTRL 

5.2.2 NORMAL TEST ROUTINES 

5.2.3 OPTIONAL TEST ROUTINES 
5. 2.<* TEST SUBROUTINES 

5.2.5 ERROR CONTROL ROUTINES 

5.2.6 INTERRUPT ROUTINES 

6. APPENDIX 9 

6.1 STANDARD PUNCH PATTERN 



1. PURPOSE 

THE 1«**»2 CARD READ/PUNCH DIAGNOSTIC PROGRAM CHECKS THE 
OPERATING PERFORMANCE OF THE 14<*2 CARD READ/PUNCH. 

2. PREREQUISITES 

2.1"" : = PROGRAM PREREQUISITES 
1130 DIAGNOSTIC MONITOR II. 



2.2«»= EQUIPMENT PREREQUISITES 

THE FOLLOWING EQUIPMENT IS REQUIRED. 

A. 1131 CENTRAL PROCESSING UNIT (CPU) WITH PROGRAM LOAD FROM 
CARD OR PAPER READER. 

B. l«|l»2 CARD READ/PUNCH MOD 6 OR 7 . 

C. AT LEAST li»00 WORDS OF AVAILABLE CORE STORAGE. 



OPERATING PROCEDURE 



THESE OPERATING PROCEDURES APPLY TO SINGLE PROGRAM OPERATION ONLY 
FOR OVERLAP OPERATION REFER TO SECTION 3.2.3 OF THE 1130 DIAGNOSTIC 
MONITOR II DOCUMENTATION. 

3.XKSK PROGRAM LOADING 

STANDARD MONITOR LOADING PROCEDURES APPLY 

THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR 
DETAILS. 

1. SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEFT MARGIN 

2. SET BIT SWITCH 15 OFF - LOAD AND GO 

ON - TO SPECIFY OPTIONS BEFORE RUNNING. 

IF HALTED AFTER LOADING, SELECT PROGRAM 

OPTIONS THEN TURN OFF HALT SWITCH OR 

FOLLOW NORMAL RESTART PROCEDURE (SECTION 3.5). 

3. LOAD DIAGNOSTIC MONITOR AND THIS PROGRAM. 
"*. SELECT PROGRAM OPTIONS, IF DESIRED. 



3.2 :: "« PROGRAM OPERATION. 
3.2.1 PROGRAM CONTROL OPTIONS 



FUNCTION 



1. SET SWITCHES 0-7 TO 01. 

2. SET SWITCHES 8-15 AS DESIRED. 



sw 



FUNCTION 



8 RESTART 

9 SINGLE CYCLE CONTROL AND ROUTINE START MESSAGE 

10 LOCK ON FUNCTION 

11 LOOP PROGRAM 

12 LOOP ON ERROR 

13 BYPASS ERROR PRINTOUT 
1«» HALT ON ERROR 

15 HALT 



3. PRESS INT REQ KEY QN. CONSOLE. 
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3.2.2 ROUTINE SELECTION - FUNCTION 1 

THE SELECTED ROUTINE WILL LOOP UNTIL A NEW ROUTINE IS SELECTED. 

1. TO SET ROUTINE SELECTION 

A. SET SWITCHES 0-7 TO 41. 

B. SET ROUTINE NUMBER IN SWITCHES 12-15. 



RTN 



DESCRIPTION 



1 


PUNCH AND FEED 


. NORMAL ROUTINES- 


2 


READ ROTATE PATTERN 


. THE PROGRAM STARTS WITH 


3 


PUNCH 40 COLUMNS 


. ROUTINE 1, RUNS EACH 


4 


PUNCH FLIPPED PATTERN 


. ROUTINE IN SEQUENCE 


5 


READ FLIPPED PATTERN 


. THEN TERMINATES AFTER 


6 


! CLUTCH TEST 


. ROUTINE 6. 


7 


: PUNCH FROM SWITCHES 


. OPTIONAL ROUTINES 


8 


GANG PUNCH 


. THESE ROUTINES RUN 
. ONLY IF SELECTED. 



" = REFER TO SECTION 3.2.3 FOR SPECIAL INSTRUCTIONS. 
C. PRESS INT REQ KEY ON CONSOLE. 
2. TO RESET ROUTINE SELECTION SET AS IF SELECTING ROUTINE ZERO. 
3.2.3 OPTIONAL CONTROL 

1. SELECT CLUTCH DELAY 

IN THE CLUTCH TEST (RTN 6) THE DELAY BETWEEN START READ COMMANDS 
CAN BE SPECIFIED BY THE SWITCHES. TO DO THIS, SET SWITCHES 0-7 
TO 81, 8-15 FOR THE DESIRED DELAY, THEN PRESS THE INTERRUPT 
REQUEST KEY. EACH BINARY INCREMENT SET IN THE SWITCHES INCREASES 
THE DELAY BY 8 MILLISECONDS. 

2. PUNCH FROM SWITCHES 

ROUTINE 7 WILL PUNCH ALL CARDS WITH THE PATTERN SET IN SWITCHES 
0-11. AFTER THE ROUTINE IS SELECTED, FOLLOW INSTRUCTIONS IN THE SET 
UP MESSAGE. THE NUMBER OF COLUMNS TO BE PUNCHED CAN BE SPECIFIED BY 
A SWITCH ENTRY WITH THE SWITCHES SET TO 81XX WHERE XX EQUALS THE 
NUMBER OF COLUMNS IN HEX. 

3. MODIFY PUNCH DATA 

ROUTINE 9 WILL READ IN ONE CARD AND REPLACE THE PUNCH DATA TABLE WITH 
THE DATA PATTERN PUNCHED IN THAT CARD. THE PROGRAM WILL THEN 
AUTOMATICALLY RESTART FROM ROUTINE 1. 



3. 3 ::x8 PROGRAM HALTS 
3.3.1 NORMAL HALTS 



HALT NO 
(B REG) 


DESCRIPTION 


RESTART 
ACTION 


3001 
3002 


PROGRAM STOP OR ADDRESS STOP 
HALT ON ERROR 


PRESS START 

DISPLAY MODE-PRESS START. 
RUN MODE-PRESS START 



3.3.2 ERROR HALTS 



.HALT NO 


DESCRIPTION 


RESTART 


. (B REG) 




ACTION 


. 30F1 


CHECK SUM ERROR ON FIRST 


RELOAD 


. 30F2 


READER DSW ERROR WHEN 
LOADING LOADER 


RELOAD 


. 30F3 


CARD 2 OF LOADER DID NOT 
LOAD 


RELOAD '. 


. 30F4 


CAN NOT CLEAR CORE - DUE TO 
ERROR IN ADDRESSING UPPER 
CORE. 




. 30F5 


READER CHECK WHEN LOADING 


NPRO THEN PLACE CARDS 




MONITOR OR TEST PROGRAM 


RUN OUT IN FRONT OF 
REMAINING DECK AND PRESS. 
START. 


. 30F6 


MONITOR DID NOT LOAD 


RELOAD 


. 30F7 


CHECK SUM WHEN LOADING 
MONITOR 


RELOAD 


. 30F8 


READER NOT READY 


MAKE READER READY 


. 30F9 


INVALID INTERRUPT WHICH WILL 
NOT RESET 


PRESS RESET AND START 


. 30FA 


CONSOLE PRINTER HANG UP - 
BUSY WILL NOT GO OFF 


FIX THE CONSOLE PRINTER . 
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3 . 4""" PROGRAM TERMINATION 

IF LOOP PROGRAM HAS NOT BEEN SPECIFIED THE PROGRAM WILL TERMINATE 
AT THE END OF ROUTINE 6. ROUTINE 7,8 AND 9 WILL RUN ONLY IF 
SELECTED. 

IF ANY ROUTINE IS SELECTED THAT ROUTINE WILL LOOP AND WILL NOT 
TERMINATE. 



3.5 !:! "" RESTART 

1. SET SWITCHES 0-7 TO 01. 

2. TURN ON SWITCH 8. 

3. SET DESIRED CONTROL IN SWITCHES 9-14. 

4. PRESS INTERRUPT REQUEST KEY. 



PRINTOUTS 
ALL PRINTOUTS ARE IN THE STANDARD FORMAT. 

(MESSAGE) 
(MESSAGE) 



APPNN OORR AAAA 

OR 

EPPNN OORR AAAA 



WHERE 



IDENTIFIES STATUS MESSAGES 

E IDENTIFIES ERROR MESSAGES 
PP IS THE PID OF THE PROGRAM CAUSING THE MESSAGE 

THIS WILL BE EITHER 00 FOR MESSAGES 

ORIGINATED BY MONITOR OR OF FOR MESSAGES ORIGINATED BY 
THIS PROGRAM. 



4.1 = 



A0O00 



NN 

RR 

AAAA 

MESSAGE 

STATUS MESSAGES 



IS THE MESSAGE SEQUENCE NUMBER 

IS THE ROUTINE NUMBER 

IS THE ADDRESS OF THE ROUTINE 

IS ANY VARIABLE INFORMATION 



NUM PID ADRS RELF 
XXXX XXXX XXXX XXXX 



LD 



THIS MESSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM 
(EXCEPT MONITOR), THE MESSAGE GIVES THE LOAD SEQUENCE NUMBER, 
THE PROGRAM ID, THE ADDRESS INTO WHICH THE PROGRAM WAS LOADED, 
AND THE RELOCATION FACTOR. 



A0001 



SWS PID 
XXXX XXXX 

THIS MESSAGE IS PRINTED EACH TIME A VALID SWITCH ENTRY IS READ 
BY THE MONITOR. THE MESSAGE CONTAINS THE SWITCH SETTING READ 
TOGETHER WITH THE PROGRAM ID OF THE PROGRAM INTO WHICH THE 
CONTENTS OF SWITCHES 8-15 WERE STORED. IF THE SWITCH ENTRY 
CALLED FOR HALT OF ANY PROGRAM THE WORD HALT WILL FOLLOW THE 
MESSAGE. 



A0F0 00 OR AAAA 

ROUTINE START MESSAGE - IF SWITCH 9, FUNCTION 0, IS TURNED ON, 
THIS MESSAGE WILL BE PRINTED BEFORE THE START OF EACH ROUTINE. 
R IS THE NUMBER OF THE NEXT ROUTINE AND AAAA IS THE STARTING 
ADDRESS. 



AOF01 000R AAAA 



LOAD BLANKS 



LOAD THE 1442 HOPPER WITH BLANK CARDS THEN PRESS 1442 
START. 



A0F02 OOOR AAAA 



LOAD FROM STK2 



LOAD THE CARDS IN STACKER 2 (PUNCHED BY PREVIOUS ROUTINE) 
IN THE 1442 HOPPER, THEN PRESS 1442 START. THIS DECK WAS 
PUNCHED WITH A ROTATING PATTERN. IT MUST BE LOADED IN THE 
SAME ORDER AS PUNCHED. THERE MUST BE NO CARDS MISSING FROM 
THE DECK. 



A0F0 3 OOOR AAAA 



LOAD ANY PATTERN PLUS BLANKS 



IF ROUTINE 8 - THE PATTERN IN THE FIRST CARD WILL BE PUNCHED 
IN THE FOLLOWING BLANK CARDS. 

IF ROUTINE 9 - THE ROTATE DATA TABLE WILL BE REPLACED BY THE 
PATTERN IN THE FIRST CARD. THE ROUTINE WILL THEN RESTART THE 
PROGRAM AT ROUTINE ONE. 



A0F04 0006 AAAA 



LD GANG PUNCHED CARDS 



LOAD ANY GANG PUNCHED DECK. THIS DECK CAN BE PUNCHED BY ROUTINE 
8. THE FIRST CARD WILL BE READ AND ALL FOLLOWING CARDS 
COMPARED TO IT. 



A0F05 OOOR AAAA 



NRDY - PRESS 1442 START 



THIS MESSAGE WILL BE PRINTED IF THE 1442 IS NOT READY FOR ANY 
REASON. THE PROGRAM WILL LOOP WAITING FOR READY. TO CONTINUE, 
CLEAR ANY ERROR CONDITIONS AND MAKE THE 1442 READY. 



AOF06 OOOR AAAA 



LAST CARD 



THE LAST CARD INDICATOR WAS ON AT THE COMPLETION OF THE LAST 
1442 CONTROL OPERATION. A FEED COMMAND WAS GIVEN TO RUN OUT THE 
LAST CARD. THE ROUTINE WILL THEN TERMINATE. IF NO ROUTINE 
HAS BEEN SELECTED, THE PROGRAM WILL ADVANCE TO THE NEXT ROUTINE. 
IF A ROUTINE HAS BEEN SELECTED, THE PROGRAM WILL RESTART THAT 
ROUTINE. 
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A0F07 0007 AAAA 



SET PATT IN SW 0-11 
THEN TN SW 12 



THIS IS THE SET UP MESSAGE FOR ROUTINE 7. IT INSTRUCTS THE CE 

TO SET ANY DESIRED DATA PATTERN IN SWITCHES 0-11. WHEN SWITCH 

12 IS TURNED ON, THIS PATTERN WILL BE PUNCHED. THE NUMBER 

OF COLUMNS PUNCHED CAN BE CONTROLLED BY A FUNCTION 2 SWITCH 

ENTRY WITH THE DESIRED NUMBER OF COLUMNS SET IN SWITCHES 

8-15 (FOR SINGLE PROGRAM OPERATION SET SWITCHES TO 81XX WHERE XX 

EQUALS NUMBER OF COLUMNS IN HEX). 



4.2 : 



ERROR MESSAGES 



THE DSW IS CHECKED FOR ABSOLUTE CORRECTNESS AT ALL TIMES IF AN 
ERROR IS DETECTED ONE OF THE MESSAGES BELOW WILL INDICATE THE 
PROBLEM. IT IS LEFT TO THE OPERATOR TO ANALYZE THE DSW FOR THE 
SPECIFIC PROBLEM AREA. 



E0004 CKSUM 

A CHECK SUM ERROR WAS DETECTED WHILE LOADING A TEST PROGRAM. 
THIS ERROR OCCURS UNDER ANY OF THE FOLLOWING CONDITIONS. 

1. A CARD IS MISSING OR IS OUT OF SEQUENCE. 

2. THERE IS AN EXTRA CARD IN THE DECK. 

3. THE PUNCHED INFORMATION ON THE CARD IS NOT CORRECT. 

4. DATA WAS LOST OR PICKED UP DUE TO A MACHINE MALFUNCTION. 

5. DUE TO A CPU MALFUNCTION, THE CHECK SUM WAS NOT 
CORRECTLY CALCULATED. 

WHEN THIS ERROR OCCURS ATTEMPT TO RELOAD THE PROGRAM. 



THE 1W2 DSW 



E0001 



BIT 

READ RESPONSE 

1 PUNCH RESPONSE 

2 ERROR CHECK 

3 LAST CARD 

4 OPERATION COMPLETE 

5 NOT USED 

6 NOT USED 

7 FEED CHECK AT READ STATION 

8 NOT USED 

9 NOT USED 

10 NOT USED 

11 NOT USED 

12 NOT USED 

13 NOT USED 

14 BUSY 

15 NOT READY OR BUSY 



SWS INVLD 
XXXX 



THE SETTING OF SWITCHES 4-7 DID NOT EQUAL THE LOAD SEOUENCE 
NUMBER OF ANY PROGRAM IN CORE. 



E0005 



000N XXXX 

THIS ERROR WILL OCCUR IS AN INTERRUPT OCCURS, BUT THE ILSW 
WAS NOT CORRECT. N IS THE INTERRUPT LEVEL AND XXXX IS THE 
ILSW. THIS PRINTOUT WILL ONLY OCCUR IF THE INTERRUPT IS RESET 
BY A BOSC. NO ATTEMPT IS MADE BY THE ERROR ROUTINE TO RESET 
THE REQUEST BIT. 



E0F00 000R AAAA 



CARD NOT BLANK 



A PRE-PUNCHED CARD WAS DETECTED BY A PUNCH ROUTINE. THIS CARD WAS 
NOT PUNCHED BUT WAS REJECTED. THIS CARD WILL BE FEED OUT INTO 
STACKER 1. 



E0FO1 000R AAAA 



WAS 
XXXX 0000 



S/B - STATIC DSW ERR 



A BIT, IN ADDITION TO NOT READY, WAS ON IN THE DSW WHEN IT WAS 
SENSED BEFORE GIVING A CONTROL COMMAND TO THE 1442. USE THE 
ABOVE DSW TABLE TO IDENTIFY THE BIT, THEN TAKE APPROPRIATE 
CORRECTIVE ACTION. 



E0F02 000R AAAA 



LAST OP - CCCC 

WAS S/B - BUSY DSW ERR 
XXXX 0003 



THIS DSW WAS SENSED IMMEDIATELY AFTER THE 1442 CONTROL COMMAND 

WAS IDENTIFIED BY CCCC WAS GIVEN. THAT COMMAND SHOULD MAKE THE 1442 

BUSY AND NOT READY. NO OTHER BITS SHOULD BE ON. 



E0003 OVR CORE 

THE PROGRAM WHICH THE LOADER WAS ATTEMPTING TO LOAD 
EXCEEDED AVAILABLE CORE. LOADING WAS TERMINATED. 



E0F03 000R AAAA 



LAST 



XXXX 



OP - CCCC 

DSW - NO INTRPT - LEV4 



NO OP COMPLETE INTERRUPT WAS RECEIVED FOLLOWING THE LAST CONTROL COMMAND 
COMMAND, IDENTIFIED BY CCCC. THE COMMAND WAS RECEIVED BY THE 1442 IF ' 
AN E0F02 MESSAGE WAS NOT PRINTED. 
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E0F0*» OO0R AAAA 



WAS 
XXXX X003 



S/B - LEVO DSW ERR 



E0F09 000R AAAA 



THIS DSW WAS SENSED IN THE LEVEL ZERO INTERRUPT ROUTTNF tuf 
RESPONSE FOR THE LAST CONTROL COMMAND CIDENTIFIeS BY CCCO 
SHOULD BE ON, TOGETHER WITH BUSY AND NOT READY. ° 



WAS S/B COL 
XXXX YYYY 000ZZ 



DATA ERR 



E0F05 0O0R AAAA 



LAST OP - CCCC 

WAS S/B - LEVt DSW ERR 
XXXX X80X 



lu^ 2CI A XXXX READ FR0M COLUMN ZZCIN DECIMAL) DOES NOT AGREE WITH 
THE EXPECTED DATA YYYY FOR THAT COLUMN. CHECK CARD FOR CORRECT 
n A r A \c IF DATA ,S C0RRE " THEN A READ ERROR OCCURRED IF THE 
DATA IS NOT CORRECT, A PUNCH ERROR OCCURED. IN THE LATTER 
CASE, IF NO PUNCH CHECK WAS DETECTED WHILE PUNCHING THE CARD THE 
PUNCH ECHO CHECK IS NOT FUNCTIONING ^uncming THE CARD, THE 



IlT S SHOULD A L S nM SED T ^ ™ E LEVEL * INT "^PT ROUTINE. OP COMPLETE 
ALL oS D B?T E S °^OULD E BE LA OF T F? ARD ^ "" ^ B,TS ™ BE ° N " 



E0F10 000R AAAA 



E0F06 000R AAAA 



LAST OP - PUNCH 

WAS S/B - PCH CK 
XXXX 0000 



2F£i~i'J?22SJi "° TA7E ""™ —"" ™ 22, c SSi„ 



5. 



E0F07 000R AAAA 



LAST OP - CCCC 
WAS S/B - 
XXXX 0000 



ER CK 



AN ERROR CHECK OCCURRED DURING 
OPERATION WAS READ OR PUNCHED, 
BY AN E0F08 MESSAGE WHICH WILL 
PROCESSED BEFORE THE ERROR WAS 
CARDS FROM THE l«f42 THEN PRESS 
PATTERN TO BE READ BY THE NEXT 
AND RESTART THE ROUTINE. 



THE LAST OPERATION. IF THE LAST 
THIS MESSAGE SHOULD BE FOLLOWED 
IDENTIFY THE NUMBER OF COLUMNS 
DETECTED. TO CONTINUE, CLEAR ALL 
START. IF PUNCHING A ROTATING 
ROUTINE, DISCARD THE CARDS PUNCHED 



E0F08 000R AAAA 



WAS S/B 
XXXXX YYYYY 



COL CNT ER 



XXXXX IDENTIFIES THE NUMBER OF COLUMN INTERRUPTS THAT OCCURRFn 
DURING THE LAST OPERATION. YYYYY IDENTIFIES THE EXPECTED nSSbfp 
OF INTERRUPTS. IF AN ERROR CHECK OCCURRED DURING ThI LAST 
OPERATION (IDENTIFIED BY AN EOF06 OR E0F07 MESSAGE) THE OPERATION 
WILL TERMINATE AT THE TIME THE ERROR OCCURS? THUS THIS ERROR 
WA DETECT ^^ ™ E C ° LUMN BEING ^^ESSE^'whEN^He'eRROR 



LAST OP - CCCC 
DSW - NO INTRPT 
XXXX 



LEVO 



NO LEVEL (COLUMN) INTERRUPT WAS RECEIVED FOLLOWING 
THE LAST CONTROL COMMAND, IDENTIFIED BY CCCC THE 
Mnr M pp?K,T A n RECEIVED BY THE XHH2 IF ON E0F02 'MESSAGE WAS 



COMMENTS 
5.1S!*j« TEST PROCEDURE 
5.1.1 TEST ORGANIZATION 

TESTS ARE ORGANIZED AS FOLLOWS 

1. INITIALIZE THE TEST 

A. SET FOR START OF PATTERN 

B. PRINT SET UP MESSAGE. 

2. INITIALIZE FOR NEXT CARD 

A. IF PUNCH TEST - READ THE CARD AND CHECK FOR BLANK. 

B. SET EXPECTED COLUMN INTERRUPT COUNT 
C SET LOOP ADDRESS 

D. CHECK DSW FOR READY 

EXECUTE CONTROL COMMAND 
CHECK FOR ERRORS 

A. CHECK DSW FOR BUSY 

B. WAIT FOR TIMED PERIOD - TIME OUT IF NO INTERRUPT 

C. CHECK COLUMN INTERRUPT DSW. 

D. CHECK FOR CORRECT NUMBER OF COLUMN INTERRUPTS 

E. CHECK OP COMPLETE DSW. 

ANALYZE ERROR DATA AND PRINT ERROR MESSAGES. 
GO TO 2 ABOVE IF LOCK ON FUNCTION. 
ADVANCE FOR NEXT CARD. 

A. ROTATE PATTERN 

B. INCREASE DELAY FOR ROUTINE 5. 

C CHECK FOR PATTERN OR DELAY RESET. 

8. GO TO NEXT CARD (2 ABOVE). 



3. 
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5.1.2 ERROR CHECKING 

ALL TEST ROUTINES CONTAIN THE FOLLOWING COMMON ERROR CHECKING. 

1. DEVICE STATUS CHECK - THE DEVICE STATUS IS READ AND CHECKED 
AS FOLLOWS: 

A. BEFORE AN OPERATION IS INITIATED, THE DSW SHOULD BE ZERO. 
ANY BITS ON WILL BE IDENTIFIED BY A MESSAGE (E0F01). 

B. IMMEDIATELY AFTER AN OPERATION, THE DSW SHOULD SHOW 

THE DEVICE TO BE BUSY AND NOT READY. ALL OTHER BITS SHOULD 
BE OFF. THIS DSW IS SAVED AND CHECKED FOR ERRORS AFTER 
THE OPERATION IS COMPLETED. A MESSAGE IS PRINTED IDENTIFING 
ANY ERROR DETECTED (EOF02). 

C. IN INTERRUPT LEVEL ZERO, COLUMN INTERRUPT. THIS DSW SHOULD 
SHOW THE DEVICE BUSY AND NOT READY WITH THE CORRECT RESPONSE BIT 
ON. ALL ERRORS DETECTED FOR A CARD ARE OR ' D TOGETHER. THUS 
THE DSW PRINTED IN THE ERROR MESSAGE (E0F04) CONTAINS ALL ERROR 
BITS WHICH WHERE FOUND ON IN ANY COLUMN DSW AND WILL BE MISSING 
ANY NORMAL BIT WHICH WAS FOUND OFF IN ANY COLUMN DSW. 

D. IN INTERRUPT LEVEL FOUR OP COMPLETE INTERRUPT. THIS DSW SHOULD 
SHOW THE DEVICE READY (UNLESS THE HOPPER IS EMPTY) AND NOT BUSY, 
AND THE OP COMPLETE RESPONSE BIT SHOULD BE ON. A MESSAGE (E0F05) 
IS PRINTED IDENTIFYING ANY ERROR. NOT READY AND LAST CARD ARE 
ALSO IDENTIFIED BY UNIQUE MESSAGES. (A0F05 AND A0FO6) 

2. INTERRUPT CHECK-BOTH COLUMN INTERRUPT AND OP COMPLETE INTERRUPT ARE 
CHECKED AS FOLLOWS. 

A. COLUMN INTERRUPT - ALL COLUMN INTERRUPTS ARE COUNTED AND COMPARED 
AGAINST THE EXPECTED NUMBER. A MESSAGE IS PRINTED IF THESE DO NOT 
AGREE. (EOF08) 

B. OP COMPLETE INTERRUPT - AFTER THE CONTROL COMMAND IS GIVEN, THE 
PROGRAM GOES TO THE INTERRUPT WAIT ROUTINE. THIS ROUTINE 
WAITS IN A TIMED LOOP FOR AT LEAST 2 SECONDS. IF NO OP COMPLETE 
INTERRUPT HAS OCCURRED AT THE END OF THAT TIME, AN ERROR MESSAGE 
IS PRINTED (E0F03). 

3. DATA CHECK 

A. PUNCH - ANY PUNCH ERROR SHOULD BE DETECTED BY THE PUNCH ECHO 
CIRCUITS IN THE 1442. WHEN A PUNCH ECHO CHECK OCCURS, A MESSAGE IS 
PRINTED CE0F06) INCLUDING THE ECHO READ BACK FROM THE 1442 BUFFER. 
THE BITS ON IN THE ECHO WORD IDENTIFY THE BITS IN ERROR. ANY 
PUNCH ERRORS NOT DETECTED BY THE PUNCH ECHO CHECK WILL CAUSE 

A READ DATA ERROR IN THE FOLLOWING ROUTINE. 

B. READ - ALL READ TESTS USE DECKS PREPARED BY THE PREVIOUS PUNCH 
ROUTINE (EXPECT TEST 6). THE READ TEST COMPARES THE DATA READ 
AGAINST THE DATA PUNCHED. THE EXCEPTION, TEST 6, COMPARES ALL 
CARDS AGAINST THE FIRST CARD READ. 



5.2 : 



ROUTINE DESCRIPTION 



THIS SECTION CONTAINS A DESCRIPTION OF THE PROGRAM ROUTINES AND 
SUBROUTINES IN APPROXIMATELY THE ORDER IN WHICH THEY APPEAR IN THE 
PROGRAM AS FOLLOWS - 

1. TEST SEQUENCE CONTROL ROUTINE 

2. NORMAL TEST ROUTINES 

3. OPTIONAL TEST ROUTINES 

4. TEST SUBROUTINES 

5. ERROR CONTROL ROUTINES 

6. INTERRUPT ROUTINES 

5.2.1 TEST SEQUENCE CONTROL ROUTINE - CNTRL 

THIS ROUTINE CHECKS THE ROUTINE SELECTION SWITCH (SW1 IN THE PROGRAM 
CONTROL TABLE) AND DETERMINES WHICH TEST ROUTINE IS TO BE RUN NEXT. 
IF A TEST ROUTINE HAS BEEN SELECTED, IT ESTABLISHED A TRANSFER TO THAT 
ROUTINE. IF NO ROUTINE IS SELECTED, A TRANSFER IS ESTABLISHED TO 
THE NEXT TEST ROUTINE IN SEQUENCE. 

THE ROUTINE ADDRESS TABLE (RTTBC) WHICH IS PART OF CNTRL, CONTAINS 

THE ROUTINE ADDRESS FOR ALL TEST ROUTINES IN THE SEQUENCE IN WHICH THEY ARE 

TO BE RUN. 

THE LAST TEST ROUTINE IN THE NORMAL SEQUENCE IS IDENTIFIED BY THE 
TABLE NRTN. AFTER THIS ROUTINE IS RUN , CNTRL WILL TRANSFER TO MONITOR 
END AND TERMINATE THE PROGRAM. ROUTINES FOLLOWING THE TABLE NRTN 
ARE CALLED OPTIONAL TEST ROUTINES AND WILL ONLY BE RUN IF SELECTED. 



5.2.2 NORMAL TEST ROUTINES 



IF NO TEST ROUTINE IS 
THEN THE PROGRAM WILL 

1. TEST ROUTINE 1 - 



SELECTED, 
TERMINATE. 



THESE SIX ROUTINES WILL RUN IN SEQUENCE 



PUNCH AND FEED 



THIS ROUTINE READS A CARD, CHECKS TO SEE THAT IT IS BLANK, IF BLANK 
PUNCHES IT WITH THE PATTERN SET IN THE ROTATE DATA TABLE, THEN 
SELECTS STACKER TWO AND FEEDS THE PUNCHED CARD OUT. REPEATING THIS 
SEQUENCE WILL CAUSE A BLANK CARD TO FIRST BE FED INTO STACKER 1 BY 
THE READ COMMAND THEN A PUNCHED CARD WILL BE FED INTO STACKER 2 
BY THE FEED COMMAND. THE CARDS ARE PUNCHED WITH A ROTATING PATTERN, 
I.E., THE PATTERN IS SHIFTED ONE COLUMN TO THE LEFT FOR EACH 
SUCCEEDING CARD PUNCHED. 

LOCK ON FUNCTION - THE PROGRAM WILL LOCK IN THE PUNCH OPERATION. 

ONLY PUNCH CONTROL COMMANDS WILL BE GIVEN. THE DATA PATTERN 

WILL ALSO LOCK WITH THE LAST PATTERN PRIOR TO SETTING THE LOCK SWITCH. 
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TEST ROUTINE 2 - READ ROTATE PATTERN 

THIS ROUTINE READS THE CARDS PUNCHED BY ROUTINE 1. THE DATA READ 

IS COMPARED TO THE DATA PUNCHED. ANY ERROR DETECTED WILL BE PRINTED. 

LOCK ON FUNCTION - NOT APPLICABLE. 

TEST ROUTINE 3 - PUNCH 40 COLUMNS 

THIS ROUTINE WILL PUNCH THE ROTATING PATTERN IN THE FIRST 40 
COLUMNS OF EACH CARD. EACH CARD IS CHECKED FOR BLANK BEFORE IT 
IS PUNCHED. ALL PUNCHED CARDS ARE SELECTED TO STACKER 2. 

LOCK ON FUNCTION - LOCK IN THE PUNCH FUNCTION ONLY. CARDS WILL 
NOT BE CHECKED FOR BLANK AND THE PATTERN WILL NOT ROTATE. 



4. TEST ROUTINE 4 



PUNCH FLIPPED PATTERN 



THIS ROUTINE READS THE ROTATE PATTERN PUNCHED BY ROUTINE 3 AND COMPARES 
IT WITH THE DESIRED PATTERN. IT WILL THEN PUNCH THE MIRROR IMAGE OF 
THAT PATTERN IN COLUMNS 41-80. 

LOCK ON FUNCTION - NOT APPLICABLE. 

TEST ROUTINE 5 - READ FLIPPED PATTERN 

THIS ROUTINE READS THE PATTERNS PUNCHED BY ROUTINES 3 AND 4 IT WILL 
THEN COMPARE THIS DATA WITH THE DESIRED PATTERNS. 

LOCK ON FUNCTION - NOT APPLICABLE. 

TEST ROUTINE 6 - CLUTCH TEST 

THIS ROUTINE READS GANG PUNCHED CARDS CMAY BE BLANKS) WITH AN 
INCREASING DELAY BETWEEN EACH START READ COMMAND. ALL CARDS READ ARE 
COMPARED WITH THE FIRST CARD. THE DELAY IS INCREASED BY 1 MILLI SECOND 
FOR EACH CARD READ TO A MAXIMUM OF 125 MILLISECONDS. THE DELAY IS 
THEN RESET TO ZERO AND THE CYCLE REPEATED. 



LOCK ON FUNCTION 
READ COMMANDS. 



LOCK ON READ WITH NO CHANGE IN DELAY BETWEEN START 



SPECIFY DELAY - THE DELAY CAN BE SPECIFIED BY A FUNCTION 2 BIT SWITCH 
ENTRY. THIS DELAY IS INCREASED BY APPROXIMATELY 3K <5K FOR 2 2 MSEC 
MEMORY) FOR EACH BINARY INCREMENT SET IN SWITCHES 8-15 



5.2.3 
1. 



5.2.4 

1. 



OPTIONAL TEST ROUTINES 

TEST ROUTINE 7 - PUNCH FROM SWITCHES 

THIS ROUTINE WILL PUNCH ALL CARDS WITH THE DATA SET IN SWITCHES 0-11 
THE NUMBER OF COLUMNS TO BE PUNCHED CAN BE SPECIFIED BY A FUNCTION ' 
2 BIT SWITCH ENTRY. IF THE NUMBER OF COLUMNS IS NOT SPECIFIED 80 
COLUMNS WILL BE PUNCHED. CARDS ARE NOT CHECKED FOR BLANK BEFORE 
PUNCHING. 



LOCK ON FUNCTION 
TEST ROUTINE 8 - 



- NOT APPLICABLE. 
GANG PUNCH 



THIS ROUTINE WILL READ THE FIRST CARD THEN PUNCH ALL FOLLOWING CARDS 
WITH THE DATA READ FROM THE FIRST CARD. EACH CARD WILL BE READ TO 
CHECK FOR BLANK. 



LOCK ON FUNCTION 
TEST ROUTINE 9 - 



- WILL BYPASS THE CHECK FOR BLANK CARDS. 
MODIFIED PUNCH DATA 



THIS ROUTINE WILL READ IN ONE CARD AND REPLACE THE PUNCH DATA 
TABLE WITH THE DATA PATTERN PUNCHED IN THAT CARD. THE PROGRAM 
WILL THEN AUTOMATICALLY RESTART FROM ROUTINE 1 
TEST SUBROUTINES 

ROTATE THE DATA TABLE 

THIS SUBROUTINE ADVANCES THE PUNCH AND READ COMPARE ADDRESSES 
THROUGH A DOUBLE DATA TABLE. 

2. CHECK FOR BLANK CARDS 

THIS SUBROUTINE READS ONE CARD THEN CHECKS ALL COLUMNS FOR 
DATA. IF CARD IS NOT BLANK, AN ERROR MESSAGE IS PRINTED. 

3. FEED A CARD 

THIS SUBROUTINE CHECKS FOR 1442 READY, THEN FEEDS ONE CARD 
FOLLOWING THE FEED COMMAND, THE SUBROUTINE TRANSFERS TO THE WAIT 
ROUTINE UNTIL THE INTERRUPT IS RECEIVED. 

4. READ A CARD 

THIS SUBROUTINE SETS EXPECTED COLUMN COUNT TO 80, CHECKS ON READY 
THEN EXECUTES A START READ COMMAND. THE SUBROUTINE TRANSFERS TO THE 
WAIT ROUTINE UNTIL THE INTERRUPT IS RECEIVED. 
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5. PUNCH A CARD 

THIS SUBROUTINE SETS THE EXPECTED COLUMN COUNT, CHECKS ON READY. 

SELECTS STACKER 2, THEN EXECUTES A START PUNCH COMMAND. THE 

SUBROUTINE TRANSFERS TO THE WAIT ROUTINE UNTIL THE INTERRUPT IS 
RECEIVED. 

6. COMPARE DATA READ 

THIS SUBROUTINE COMPARES DATA READ WITH THE EXPECTED PATTERN FOR 
THAT CARD. IF THERE ARE ANY DISCREPANCIES, AN E0F09 MESSAGE IS 
PRINTED. 

7. LOCK ON FUNCTION 

THIS SUBROUTINE IS ENTERED AT THE COMPLETION OF EACH PUNCH ROUTINE 
BEFORE ADVANCING TO THE DATA FOR THE NEXT PASS. THE SUBROUTINE CHECKS 
THE LOCK ON FUNCTION SWITCH, SWITCH 10. IF THIS SWITCH IS ON THE 
SUBROUTINE GOES TO THE ADDRESS SET IN LOOP. 

8. READY 

THIS SUBROUTINE IS ENTERED BEFORE ANY 14«t2 CONTROL COMMAND IS GIVEN. IT 
READS THE l«t«t2 DSW AND CHECKS IT FOR READY (ALL BITS OFF). ANY BIT ON 
OTHER THAN NOT READY (BIT 15) WILL BE IDENTIFIED BY AN E0F01 MESSAGE. 
IF ANY BIT IS ON, A NRDY MESSAGE (A0F05) WILL BE PRINTED. THIS ROUTINE 
STAYS IN A LOOP, PRINTING THE NRDY MESSAGE EACH 10 SECONDS, UNTIL ALL 
BITS IN THE DSW GO OFF. 

9. LAST CARD 

THIS SUBROUTINE IS ENTERED AFTER AN OPERATION IS COMPLETED IF THE 
LAST CARD INDICATOR WAS TURNED ON DURING THAT OPERATION. THE SUBROUTINE 
WILL FEED OUT THE LAST CARD, PRINT A MESSAGE INDICATING THAT THE LAST 
CARD INDICATOR WAS DETECTED, THEN GO TO CNTRL TO TERMINATE THE ROUTINE 
AND ADVANCE TO THE NEXT ROUTINE. 

5.2.5 ERROR CONTROL ROUTINES 

1. INTERRUPT WAIT ROUTINE 

ALL SUBROUTINES COME HERE AFTER THE START OF AN I/O OPERATION FROM 
WHICH AN INTERRUPT IS EXPECTED. THIS ROUTINE RESETS ALL ERROR 
CONTROL WORDS, SENSES AND STORES THE BUSY DSW, THEN WAITS IN A 
TIMED LOOP (AT LEAST 2 SECONDS) FOR THE OP COMPLETE INTERRUPT. 

IF NO OP COMPLETE INTERRUPT IS RECEIVED, THE FOLLOWING ERROR MESSAGES 
ARE PRINTED. 

A. E0FO2 IF BUSY DSW ERROR 

B. E0F10 IF NO COLUMN INTERRUPTS 

C. E0F03 - NO OP COMPLETE INTERRUPT. 



IF OP COMPLETE INTERRUPT IS RECEIVED, THIS ROUTINE WILL CHECK FOR 
PROPER PERFORMANCE OF THE OPERATION. THE FOLLOWING CHECKS ARE MADE AND 
ERROR MESSAGES PRINTED IF APPROPRIATE. 

A. E0FO2 IF BUSY DSW ERROR 

B. EOFCt IF COLUMN INTERRUPT DSW ERROR. 

C. E0F05 IF OP COMPLETE DSW ERROR. 

D. E0F10 IF NO COLUMN INTERRUPTS. 

E. E0F08 IF INCORRECT NUMBER OF COLUMN INTERRUPTS. 

THE ROUTINE. WILL THEN CHECK FOR LAST CARD. IF THE LAST CARD 
INDICATOR IS ON, THIS ROUTINE WILL TRANSFER TO THE LAST 
CARD ROUTINE. IF NO LAST CARD, THE ROUTINE WI LL RETURN TO THE 
I/O SUBROUTINE FROM WHICH IT WAS ENTERED. 

2. PRINT ERROR MESSAGES 

THIS ROUTINE PRINTS ALL THE ERROR MESSAGES. IF THE MESSAGE IS THE 
FIRST ERROR MESSAGE FOLLOWING AN I/O CONTROL COMMAND, A LAST OP 
MESSAGE WILL PRECEED THE ERROR MESSAGE. THIS LAST OP MESSAGE WILL 
IDENTIFY THE LAST I/O CONTROL OPERATION EXECUTED. THE ERROR MESSAGE 
FOLLOWING REFERS TO ERRORS DETECTED IN THAT OPERATION. 

5.2.6 INTERRUPT ROUTINES 



COLUMN INTERRUPT 



LEVEL 



THIS ROUTINE SENSES RESETS AND STORES THE DSW, THEN CHECKS FOR CORRECT 
DSW. ANY ERROR BITS ARE STORED. AFTER THE OPERATION IS COMPLETE, ALL 
ERROR BITS DETECTED DURING THAT OPERATION ARE AVAILABLE AND WILL BE 
PRINTED IN AN EOFO 1 * MESSAGE. 

THE ROUTINE COUNTS THE NUMBER OF INTERRUPTS AND EXECUTES EITHER PUNCH 
OR READ COMMAND, THEN RETURNS TO THE MONITOR LEVEL INTERRUPT ROUTINE. 



OP - COMPLETE INTERRUPT 



LEVELS 



THIS ROUTINE SENSE, RESETS, AND STORES THE DSW, SETS A SWITCH 
INDICATING THAT THIS INTERRUPT WAS RECEIVED, THEN RETURNS TO THE 
MONITOR LEVEL "t INTERRUPT ROUTINE. 
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3 4 5 « 7 6 9 10 l! 13 13 14 is ' ' IS 19 25 21 33 23 74 2,26 37 78 29 30 3! 32 33 34 35 3S 37 36 39 40 41 42 43 44 45 46 47 
35X1 



I I 
I I 



llll 

I HI 



III 
III 



0|0|0000|0000|00|0||000||| 

46 « SO SI K SI S4 SS S6 57 SB 59 SO 61 SZ 63 61 SS 66 (7 61 69 TO 71 77 71 

l|l|lilii|ni llnllli ill 
2|2|22|2222||||22222222||| 
3|3|3 33|3333 | 3 3 |||3 3 3 3 3 ||| 
4 4|4|444|4444|44|4||444||| 
5 C |5|5555|5555|55|5 II III 
EE|B|E|6GGE||||EEEESS66||| 

77|7|77|7777|77|||77777HI 

88|B|888|86!S|88|8||8S8||| 
99|9|9 999|99 9 9|9 9|9||9 9||| 

48 49 50 Si 52 53 5» 35 56 57 58 S3 60 SI Si S3 6J ss 66 61 S3 S3 '5 71 1? 73 



II I 
II I 

llooo 

75 71 70 79 66 

lliii 

11222 
||333 
114 4 4 
||555 
||GG6 
11777 
llHl 
l|9|9 

'S 76 77 19 79 80 



3RD CARD PUNCHED IN ROUTINE 1 AND USED IN ROUTINE 2. 
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I llllll lllllllllll 
I I I llll I lllllllll 

00|00000 0|00|00||||0||0000000000000!HFOOOOGOOOOODOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 

1 2 3 4 5 « T 6 10 11 12 13 14 15 IS 11 IS 19 20 21 72 77 71 75 75 77 26 29 30 Jill 33 34 35 16 37 38 39 40 41 47 43 44 45 40 47 49 49 SO 51 57 S3 54 55 56 51 59 59 SO 61 62 63 64 65 66 61 68 S9 70 71 32 73 74 75 76 77 70 79 69 

in|iiti|iii|i i i|||||i|i in ii i i|i 1 1 1 1 in in i in i ii i ii 1111 in 1 1 ii mi i in ii i tun 

2222|22|2 2 2 2|||||2 2 2|2 2|2222 2 2 2 2|2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 22222 2 2222 2222222 2222 2 2 22 

3 333 3||3 33 33|3||||33|3 3 3|3 3 3 33 3 33|3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 
44444 ||44444|4 4||||4|4444|44444444|4 444444444444444444444 444 4 444444444444444444 4 
5555|55|5555|555|||||55555|55555555|55555555555555555555555555555555555555555555 

6GS|6EG6|666|||||G6G|G666GG|G6GGGS6E|B66GS6BSEESBBBGSBBS6ESS66666666G66S66B66G66 
77|777777|7 7|7||||77|7777777|77 77)77 7|77777 77777777 7 77 7 77777 7 777777 7 7J7 7777 7 777 7 
8|68888S8a|8|88||||8|818888B8|l8S88888|888SB8888*8888IB88888888888888888888888S8 
|9 9 99999 999||9 9 9|||||9 99999999|99999 999|9999999999 9999999999 9 99999999 99 9909 9 9999 

4 2 3 4 3 6 7 6 9 10 II i? 13 " is <•■ '' IS 19 20 71 22 23 24 25 26 27 28 29 30 31 32 33 34 35 3S 31 36 39 40 4147 43 44 45 46 47 49 49 50 51 57 S3 54 5S 56 SI '8 S9B0 Si F' 63 64 SS 67 57 iB SS 70 11 17 II '4 75 is 7. 78 13 80 

I ran j o* I 



1ST CARD PUNCHED IN ROUTINE 3 TO BE USED IN ROUTINE 4. 



I llllll lllllllllll II 

I I I llll I HIHHIIHIHHH 

0|0 00 0|00|00||||0||00 000 00 0000 OflO 00000 000000 00 

12 3 4 5 6 7 6 9 10 II 17 13 M 15 16 17 16 19 20 71 72 7. 21 25 26 77 76 23 30 31 32 33 34 3S > II 16 39 40 4i 47 4344 4546 4' 46 49 50 5 

111|1111|t11|111|||||1|11IH!ll|11|11111tH11l11|1l 
2222|22|2222|||||222|22|22222222|22222222222222|222 
3333 3||33333|3||||33 1 333 1 333333 33 1 333333333333 1 3333 

4 4444||44444|44||||4|4444|444 4 4444|4444444444|4 4444 

5 555|55|55 5 5|555|||||55 555|55 5 5 55 5 5|5 5 55 5 55 5|5 5 5 555 
666|6666|666|||||666|666666|6f E S E 3 6 G |6 6 6 G G G |G 6 E 6 G G 8 
77|777777|77|7||||77|7777777|77777/77|7777|77777777 
8|8t888888|8| 88 IIH 8| 88888888|88 8 8 8 8 8 8 |8 8 |8 8 8 8 8 8 8 8 | 
|9 99 99 999 99||999|||||999 9999 9 9|99 9 999 9 9||9999 9 9 9 9|9 

* 2 3 4 5 6 7 6 3 10 II 12 13 « 15 *'■ 1" 18 19 70 21 22 23 74 25 26 21 26 29 30 3< 37 37 14 35 36 31 38 39 40 41 42 43 44 45 46 47 48 49 50 51 
t i6i4 tnai 1 



lllllllll 
I 



llllll 
llll I I 



000 0||0||||0 0|0 0|OOOOOD|0 

52 53 54 55 56 57 58 59 SO 61 62 63 54 65 66 S' S8 SS 70 71 73 73 74 75 76 77 78 19 30 
11111 l|l|||||l I l|l 1 t|l 1 1 1|1 1 I 

22222|22|222|||||2222|22|2222 
3333|333|33||||3|33333||33333 
444|4444|4||||44|44444||44444 
55|555 5 5|||||5 5 5|55 55|55|5 555 
G|6GGG6 6|(EG|||||EGG|EEGE|E6E 
|7777 7 7 7|77||||7|77|77 7777|77 
88888888|8||||88|8|888888B8|8 
9 99 9 9 99 9|||||9 9 9 ||° S 9 9 9 9 9 9 9 9 | 

57 53 54 55 56 57 58 59 SO SI Si 63 54 ss 66 57 . ' .7 70 ,1 ~7 13 '4 15 76 77 18 19 30 



1ST CARD WITH COLUMNS 41 THROUGH 80 PUNCHED IN ROUTINE 4. 



llllll lllllllllll lllllllllll llllll 

I I llll I lllllllll lllllllll I llll I I 



0|00 

ill- 

2 2 21 
3333 
4444 
555| 
EE|E 
'177 



0000|00|00||||0||900000000000000000||000000»00000000000||0||||00|00|000000|0 

5 6 7 6 9 10 11 12 13 14 15 16 17 '8 19 2C 71 22 77 74 25 26 27 78 29 30 31 32 33 34 SMS 37 36 39 40 61 43 S3 44 45 «S "1 48 49 SO 3! 57 S3 54 55 56 57 58 55 60 61 62 03 (4 85 66 61 66 69 70 71 12 73 74 75 76 77 70 79 66 

iti|iii|iii|||||i|iiii < 1 1 i|in 1 1 1 1 1 ||i 1 1 mill in mi i|i|||||i i i|i i i|i mi|i t 

22|2222|||||222|22|22 222222|2222 2 22222222 22 2|2 2222222|22|2 22|||||2 22 2|2 2|22 2 
||33333|3||||33|333|3333 3333|333S3333333333|333 33333|333|33||||3|33333||3333 
||44 4 4 4|4 4||||4|4 4 4 4|4 44 44 444|4 4 4 4 4 4 4 4 4 4 4 4|4 4 4 4 4 444|4 444 I llll « 4 |4 44«4||4 44- 
55|5555|555|||||55555|55555555|5555555555|55555 555|55555|||||555|<5 55|55|55 5 
ESE|ESS|||||EE6|6EGGGG|G6St,6SSG|GGGGGG66|GGSGG6G6|666BGG|GGG|||||7 6G|G6 6b|6> 
7777|77|7||||77|7777777|77777 777|777777|7777777 7|7777777|7 7||||7|77|m;77|7 
18888 8 |8|88||||8 |8888888 8 18 8 8 8 8 8 8 8 |8 8 8 8 |8 8 8 8 8 8 8 8 |8 8 i 8 8 5 8 :; 1 1 ||||S 8 1 8 I" » ; J 8 8 6 i | 
l999999||999|||||999999999|999999 99|99|5 9999!99|7)99999999|||||999||99S99 9 337i9 

1 5 6 7 8 9 10 II 17 13 14 is :■' ■" 16 i9 70 21 22 23 21 25 20 21 26 29 30 31 32 33 31 35 36 J7 37 1 40 41 47 4344 4- 46 47 49 49 50 >■ 52 S3 54 jS 5o 57 56 59 60 6! SI 63 54 us 66 61 06 S3 70 '• 77 n * 15 11 3. U 75 35 



2ND CARD WITH COLUMNS 41 THROUGH 80 PUNCHED IN ROUTINE 4. 
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0160 
Olbl 
0162 
0163 
0164 



0165 
0166 
0167 
0168 



017A 
01«A 
019A 
01AA 
01BA 
01BB 
01BC 
01BD 



0000 



*****************#**********************^* Jf ;(. 3^.55.5. ,£,. 

* 
* 
* 
* 

* 

* 
* 

** * ********* *** * jjc **** ** ************* ** ****** 

* 

* 

*- 

*********************** **************** ** **.<< 

* EQUATE TABLE 

***************** ********************* * ***** 

THIS TABLE EQUATES TEST PROGRAM LABELS 
TO THEIR EQUIVALENT DIAGNOSTIC MONITOR 
ADDRESSES. 



THIS ENGINEERING CHANGE REFLECTS MAJOR 
CHANGES TO THE DIAGNOSTIC MONITOR. PREVIOUS 
TESTS WILL NOT RUN WITH DIAGNOSTIC MONITOR II. 

THIS TEST WILL NOT RUN WITH PREVIOUS MONITORS. 

TESTS PRIOR TO EC 419643 DATED NOV 15, 1966 
WILL NOT OPERATE PROPERLY WITH DIAGNOSTIC 
MONITOR II. 



1130 - 1442 READER/PUNCH FUNCTION TEST 



MONITOR ENTRY ADDRESSES 



/160 

BEGlNtl 

STARTE1 

ERR0R61 

L0G61 



BEGIN ROUTINE 
SUPERVISOR ROUTINE 
ERROR LOG ROUTINE 
STATUS LOG ROUTINE 
END ROUTINE 



BEGIN EQU 
START EQU 
ERROR EQU 
LOG EQU 
END EQU 

* 

* MONITOR CONTROL WORD ADDRESSES 

* 

RTNSW EQU ENDtl ROUTINE START SW 
ERLCK EQU ENDS2 LOCK ON ERROR CONTROL 
LOGBY EQU ENDS3 I/O BUSY SW ADDRS 
RLCF EQU END64 RELOCATION FACTOR ADDRS 
* 

* 

* 

* 

ILO 
IL1 



INTERRUPT TRANSFER VECTOR ADDRESSES 



EQU 


/17A 


EQU 


IL0616 


EQU 


IL1C16 


EQU 


IL2C16 


EQU 


IL3E16 


EQU 


IL461 


EQU 


RQTYG1 


EQU 


RQKBU 



INTERRUPT LEVEL ZERO 
INTERRUPT LEVEL ONE 
INTERRUPT LEVEL TWO 
INTERRUPT LEVEL THREE 
INTERRUPT LEVEL FOUR 
CONSOLE PRINTER REQUEST 
USE KEYBOARD REQUEST 
KB SERVICE REQUEST 



IL2 

IL3 

IL4 

RQTY 

RQKB 

SVKB 

******************************************.,,,,; 

ORG *S/05DC 
* 

* 

* THE MONITOR USES CORE LOCATIONS 0-05DC 
FOR CONTENTS OF THESE ADDRESSES REFER 
TO THE DIAGNOSTIC MONITOR LISTING. 



* 
* 

* 

* 

* 

* 

************* ************************* :f * < . !fcJ| ,, 

* PROGRAM CONTROL TABLE 

****************************** ************#* 

* 



30F00030 

30F00040 

30F00050 

30F00060 

30F00070 

30F00080 

30F00090 

30F00100 

30F00110 

30F00120 

30F00130 

30F00140 

30F00150 

30F00160 

30F00170 

30F00180 

30F00190 

3OF0O20O 

30F00210 

30F00220 

30F00230 

30F00240 

30F00250 

30F00260 

30F00270 

30F00280 

30F00290 

30F00300 

30F00310 

30F00320 

30F00330 

30F00340 

30F00350 

30F00360 

30F00370 

30F00380 

30F00390 

30F00400 

30F00410 

30F00420 

30F00430 

30F00440 

30F00450 

30F00460 

30F00470 

30F00480 

30F00490 

30F00500 

30F00510 

30F00520 

30F00530 

30F00540 

3OF00550 

30F00560 

30F00570 

30F00580 

30F00590 

30F00600 

30F00610 

30F00620 

30F00630 

30F00640 

30F00650 

30F00660 

30F00670 

30F00680 

30F00690 

30F00700 



05DC 





030F 


05DD 





0000 


05DE 





0000 


05DF 





0000 


05E0 





0000 


05E1 





0000 


05fc2 





0000 


05E3 


1 


05EB 


05E4 


1 


05EB 


05E5 





0000 


05E6 





0000 


05E7 





FFFF 



05E8 4480 0160 
05EA 1 05DC 



05EB 6100 
05EC 69F0 
05ED 1 6500 0911 
05EF 6D00 017A 
05F1 1 6D00 0884 
05F3 1 6500 0937 
05F5 6D00 01B8 
05F7 4000 



PID 

RID 

RAD 
SWO 
SW1 
SW2 
SW3 



MLSCF 



DC /030F 

DC *-* 

DC *-* 

DC *-* 

DC *-* 

DC *-* 

DC *-* 

DC STRT 

DC STRT 

DC *-* 

DC *-* 

DC /FFFF 



PROGRAM ID 
ROUTINE ID 
ROUTINE ADDRS 
PROGRAM CONTROL 
ROUTINE SELECTION 



LOOP ADDRS 

RESTART ADDRESS 

SET BY WAIT RTN AND MON 

SET BY CNTRL AND INRTPT 

TERMINATOR 



************* 

************* 

* 

BGIN BSI I BEGIN 

DC PID 

* 

* 



********************** ********* 
TEST INITIALIZATION 

**************** ***********££ £ , 



PCT ADDRESS 



* START OF TEST AND SINGLE PASS INITIALIZATION 

* 



* 
STRT 



LDX 
STX 
LDX 
STX 
STX 
LDX 
STX 
BSI 



1 

1 RID 

LI INTRO 

LI ILO 

LI M 

LI INTR4 

LI IL4-2 

CNTRL 



SET TO START WITH 
FIRST ROUTINE 

SET COL INTRPT ADDRS 
RESET MULT LINE CONTROL 

SET OP COMP INTRPT ADDRS 



************ ************************* *** i v- >sS ^ 

* SEQUENCE CONTROL ROUTINE 

***************************** ** *£ ;,.££ ^3 j.. **$£ 

* THIS ROUTINE CHECKS SW 1 AND CONTROLS 

* THE SEQUENCE IN WHICH TEST ROUTINES 

* ARE RUN. 

* 



BR IF NO RTN SELECTD 
SAVE NEW RTN NUMBER 
BR IF VALID RTN 



05F8 





0000 




CNTRL 


DC 




*-* 


05F9 





C0E6 






LD 




SW1 


05FA 


1 


4C08 


0603 


* 
CNIO 


BSC 


L 


CN20.6 


05FC 





DOEO 




STO 




RID 


05FD 





9018 






S 




RIDCK 


05FE 


1 


4C08 


0609 




BSC 


1 


CN30,£ 


0600 





1810 






SRA 




16 


0601 





DODE 






STO 




SW1 


0602 





DODA 






STO 




RID 


0603 


1 


7401 


05DD 


CN20 


MDX 


1 


RID, 1 


0605 





C0D7 






LD 




RID 


0606 





9010 






S 




RTNOM 


0607 





44B0 


0164 


* 
CN30 


BSI 


I 


END,-Z 


0609 


1 


6580 


05DD 


LDX 


II 


RID 


060B 


1 


C500 


0617 




LD 


1 1 


RTTBL-1 


0600 





DODO 






STO 




RAD 


060E 





D0D7 






STO 




MLSCFS1 


060F 





D400 


0165 




STO 


1. 


RTNSW 


0611 





1810 






SRA 




16 


0612 


1 


D400 


0894 




STO 


1 


LOOP 


0614 





4480 


0161 




BSI 


I 


START 


0616 





0009 




RIDCK 


DC 




LRTN-RT 


0617 





0006 




RTNOM 


DC 




NRTN-RT 



IF INVALID RTN GO 

TO RTN ONE 

ADV TO NEXT RTN 
CHECK FOR END OF 
NORMAL SEQUENCE 
END OF PROGRAM 

XR1#NEW ROUTINE NUMBER 
FETCH RETURN ADRS 
STORE NEW RTN ADDRS 
SET MLSCF FOR RETURN 
SET RTN START SW 



GO TO MONITOR 



30F00710 

30F00720 

30F00730 

30F00740 

30F00750 

30F00760 

30F00770 

30F00780 

30F00790 

30F00800 

30F00810 

30F00820 

30F00830 

30F00840 

30F00850 

30F00860 

30F00870 

30F00880 

30F00890 

30F00900 

30F00910 

30F00920 

30F00930 

30F00940 

30F00950 

30F00960 

30F00970 

30F00980 

30F00990 

30F01000 

30F01010 

30F01020 

30F01030 

30F01040 

30F01050 

30F01060 

30F01070 

30F01080 

30F01090 

30F01100 

30F01110 

30F01120 

30F01130 

30F01140 

30F01150 

30F01160 

30F01170 

30F01180 

30F01190 

30F01200 

30F01210 

30F01220 

30F01230 

30F01240 

30F01250 

30F01260 

30FO1270 

30F01280 

30F01290 

30F01300 

30F01310 

30F01320 

30F01330 

30F01340 

30F01350 

30F01360 

30F01370 

30F01380 



)ATE 


02JAN66 


01MAY66 


15N0V66 


:C NO. 


415490 


415490B 


419643 



PROG ID 
PAGE 



030F-0 

1 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490B 



15N0V66 
419643 



PROG ID 
PAGE 



030F-0 
1A 
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PART NO. 
PAGE 



2191224 
2A 



ROUTINE ADDRESS TABLE 



0618 


1 


0621 


0619 


1 


0638 


061A 


1 


0654 


061B 


1 


0669 


061C 


1 


0694 


061D 


1 


06AB 


061E 


1 


06E6 


061F 


1 


071A 


0620 


1 


0731 



RTTBL DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



NRTN 



RT1 
RT2 
RT3 
RT4 
RT5 
RT6 
RT7 
RT8 
RT9 



PUNCH AND FEED 
READ ROTATE PATTERN 
PUNCH 40 COLUMNS 
PUNCH FLIPPED PATTERN 
READ FLIPPED PATTERN 
READ ANY CARD 
PUNCH FROM BIT SWS 
GANG PUNCH 
MODIFY ROTATE PATTERN 



LRTN 

* 

******************************************„,** 

* ROUTINE 1 - PUNCH AND FEED 

********************************************* 

* THIS ROUTINE WILL READ A CARD, CHECK THAT THE 

THE CARD WITH A ROTATING 
;ARD. ALL PUNCHED CARDS 

ALL BLANK CARDS WILL 











* 


CARD IS 


BLANK, PUNCH 










* 


PATTERN, 


THEN FEED A I 










* 


WILL GO 


TO : 


STACKER 2, 




1 


6500 


0A33 


* 
*- 

* 
Rl 


GO 


TO STACKER 1. 


0621 


n 


LDX 


LI 


WAREA 


0623 


1 


6D00 


0784 






STX 


LI 


DADRS 


0625 





6101 








LDX 


1 


1 


0626 


1 


6700 


09EB 






LDX 


L3 


ALDBK 


0628 


1 


4400 


0967 


* 

R1 




BSI 


L 


TYPE 


062A 


1 


4400 


074A 


r n 


BSI 


L 


BLANK 


062C 


1 


6C00 


0894 






STX 


L 


LOOP 


062E 





6350 








LDX 


3 


80 


062F 


1 


4400 


078D 






BSI 


l. 


PNCHR 


0631 


1 


4400 


07F0 


* 




BSI 


L 


LOCK 


0633 


1 


4400 


073D 




BSI 


L 


ROTAT 


0635 


1 


4400 


075B 






BSI 


L 


FEED 


0637 





70F2 








MDX 




RT11 



SET FOR START OF 

ROTATE PATTERN 
MESSAGE NUMBER 
LD BLANKS 
PRINT MESSAGE 

CK FOR BLANK CARD 

SET LOOP FUNCTION ADDRS 

SET NUMBER OF COLUMNS 

PUNCH ONE CARD 

CHECK FOR LOCK ON FUNC 

ROTATE THE PATTERN 
FEED A CARD 



***************** **************************** 

* ROUTINE 2 - READ ROTATE PATTERN 
********************************************* 

* THIS ROUTINE WILL READ THE ROTATE PATTERN 

* PUNCHED BY ROUTINE 3. IT WILL COMPARE THE 

* PATTERN ON EACH CARD WITH THE DESIRED PATTERN 

* FOR THAT CARD. 



SET FOR START OF 

ROTATE PATTERN 
MESSAGE NUMBER 
STK TO HOPPER 
PRINT MESSAGE 

SET ALL BITS IN 
READ AREA 



0638 


1 


6500 


0A33 


* 
RT2 


LDX 


LI 


WAREA 


063A 


1 


6D00 


0784 




STX 


LI 


DADRS 


063C 





6102 






LDX 


1 


2 


063D 


1 


6700 


OAOD 




LDX 


L3 


ASTOH 


063F 


1 


4400 


0967 


* 
RT21 


BSI 


L 


TYPE 


0641 





6350 




LDX 


3 


80 


0642 


1 


C400 


0788 




LD 


L 


TERM 


0644 


1 


D700 


0A83 


RT22 


STO 


L3 


RAREA-1 


0646 





73FF 






MDX 


3 


-1 


0647 





70FC 






MDX 




RT22 


0648 


1 


6500 


0A84 


RT23 


LDX 


LI 


RAREA 


064A 


1 


4400 


076C 




BSI 


L 


READR 


064C 


1 


4C10 


0648 




BSC 


L 


RT23,- 


064E 





6350 






LDX 


3 


80 


064F 


1 


4400 


07A3 




BSI 


L 


COMPR 



READ ONE CARD 
REPEAT IF NO OP COMP 
SET NUMBER OF COLUMNS 
COMPARE DATA READ 
WITH DATA PUNCHED 



30F01390 

30F01400 

30F01410 

30F01420 

30F01430 

30F01440 

30F01450 

30F01460 

30F01470 

30F01480 

30F01490 

30F01500 

30F01510 

30F01520 

30F01530 

30F01540 

30F01550 

30F01560 

30F01570 

30FO1580 

30F01590 

30F01600 

30F01610 

30F01620 

30F01630 

30F01640 

30F01650 

30F01660 

30F01670 

30F01680 

30F01690 

30F01700 

3OFO1710 

30F01720 

30F01730 

30F01740 

30FO175O 

30F01760 

30F01770 

30F01780 

30F01790 

30F01800 

30F01810 

30F01820 

30F01830 

30F01840 

30F01850 

30F01860 

30F01870 

30F01880 

30F01890 

30F01900 

30F01910 

30F01920 

30F01930 

30F01940 

30F01950 

30F01960 

30F01970 

30F01980 

30F01990 

30F02000 

30F02010 

30F02020 

30F02030 

30F02040 

30F02050 

30F02060 



0651 1 4400 073D 


BSI 


L 


ROTAT 


0653 70ED 


MDX 




RT21 



0669 
066B 
066D 
066E 
0670 



1 6500 0A33 
1 6D00 0784 

6102 

1 6700 OAOD 
1 4400 0967 



0672 1 6500 0A84 
0674 1 4400 076C 
0676 1 4C10 0672 

0678 6328 

0679 1 4400 07A3 



067B 1 4400 073D 

067D 63FE 
067E 62D8 

067F 1 C600 OAAC 
0681 1 D700 0AD5 

0683 73FF 

0684 7201 

0685 70F9 

0686 62D8 

0687 1011 

0688 1 D600 OAAC 
068A 7201 
068B 70FC 

068C 1 6500 0A84 
068E 1 6D00 0784 



ROTATE THE PATTERN 



********************** *********************** 

* ROUTINE 3 - PUNCH 40 COLUMNS 
***************************** **************** 

* THIS ROUTINE WILL PUNCH THE ROTATING PATTERN 

* IN THE FIRST 40 COLUMNS OF EACH CARD. ALL 

* CARDS WILL GO TO STACKER 2. 



SET FOR START OF 

ROTATE PATTERN 
MESSAGE NUMBER 
LD BLANKS 
PRINT MESSAGE 

CK FOR BLANK CARD 

SET LOOP FUNCTION ADDRS 

SET NUMBER OF COLUMNS 

PUNCH ONE CARD 

CHECK FOR LOCK ON FUNC 

ROTATE THE PATTERN 



********************************************* 

* ROUTINE 4 - PUNCH FLIPPED PATTERN 
********************************************* 

* THIS ROUTINE WILL READ THE ROTATE PATTERN 

* PUNCHED BY ROUTINE 3 AND COMPARE IT WITH 

* THE DESIRED PATTERN. IT WILL THEN PUNCH THE 

* MIRROR IMAGE OF THAT PATTERN IN COLUMNS 41-80. 



0654 


1 


6500 


0A33 


* 
RT3 


LDX 


LI 


WAREA 


0656 


1 


6D00 


0784 




STX 


LI 


DADRS 


0658 





6101 






LDX 


1 


1 


0659 


1 


6700 


09EB 




LDX 


L3 


ALDBK 


065B 


1 


4400 


0967 




BSI 


L 


TYPE 


065D 


1 


4400 


074A 


RT31 


BSI 


L 


BLANK 


065F 


1 


6C00 


0894 




STX 


L 


LOOP 


0661 





6328 






LDX 


3 


40 


0662 


1 


4400 


078D 




BSI 


L 


PNCHR 


0664 


1 


4400 


07F0 




BSI 


L 


LOCK 


0666 


1 


4400 


073D 




BSI 


L 


ROTAT 


0668 





70F4 






MDX 




RT31 



* 
RT4 



* 
RT41 



* 
* 

* 
RT42 

* 
FLIP 



LDX 
STX 
LDX 
LDX 
BSI 

LDX 
BSI 
BSC 
LDX 
BSI 



BSI 

LDX 
LDX 

LD 

STO 

MDX 

MDX 

MDX 



LDX 
SLA 

CLEAR STO 
MDX 
MDX 

* 

LDX 
STX 



LI WAREA 
LI DADRS 

1 2 
L3 ASTOH 
L TYPE 

LI RAREA 
L READR 
L RT41,- 
3 40 

L COMPR 



L ROTAT 

3 -2 

2 -40 

L2 RAREAS40 
L3 RAREAC81 

3 -1 
2 1 

FLIP 

2 -40 
17 
L2 RAREA640 
2 1 

CLEAR 

LI RAREA 
LI DADRS 



SET FOR START OF 

ROTATE PATTERN 
MESSAGE NUMBER 
STK TO HOPPER 
PRINT MESSAGE 



READ ONE CARD 
REPEAT IF NO OP COMP 
SET NUMBER OF COLUMNS 
COMPARE DATA READ 
WITH DATA PUNCHED 

ROTATE THE PATTERN 

LOAD XR 3 
LOAD XR 2 

DATA READ 
NEW LOCATION 
ADJ XR 3 
ADJ XR 2 



LOAD XR 2 
CLEAR ACC 
CLEAR COL 1 TO 40 



SET PUNCH DATA ADRS 



30F02070 
30F02080 

30F02090 
30F02100 
30F02110 
30F02120 
30F0213O 
30F02140 
30F02150 
30F02160 
30F02170 
30F02180 
30F02190 
30F02200 
30F02210 
30F02220 
30F02230 
30F02240 
30F02250 
30F02260 
30F02270 
30F02280 
30F02290 
30F02300 
30F02310 
30F02320 
30F02330 
30F02340 
30F02350 
30F02360 
30F02370 
30F02380 
30F02390 
30F02400 
30F02410 
30F02420 
30F02430 
30F02440 
30F02450 
30F02460 
30F02470 
30F02480 
30F02490 
30F02500 
30F02510 
30F02520 
30F02530 
30F02540 
30F02550 
30F02560 
30F02570 
30F02580 
30F02590 
30F02600 
30F02610 
30F02620 
30F02630 
30F02640 
30F02650 
30F02660 
30F02670 
30F02680 
30F02690 
30F02700 
30F02710 
30F02720 
30F02730 
30F02740 
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0690 6350 


LDX 


3 80 


0691 1 4400 078D 


BSI 


L PNCHR 


0693 70DE 


MDX 


RT41 



0694 1 6500 0A33 
0696 1 6D00 0784 

0698 6102 

0699 1 6700 OAOD 
069B 1 4400 0967 

069D 1 6500 0A84 

069F 1 4400 076C 

06A1 1 4C10 069D 
06A3 6328 

06A4 1 6C00 078C 

06A6 1 4400 07A3 



06A8 1 4400 073D 
06AA 70F2 



06AB 6104 

06AC 1 6700 0A27 

06AE 1 6F00 0974 

06BO 1 6700 09EB 

06B2 1 4400 0967 

06B4 1 6500 0AD4 
06B6 1 4400 076C 

06B8 1810 
06B9 1 D400 06E3 
06BB 637D 
06BC 6B28 

06BD 1 6C00 0894 

06BF 1 C400 05E1 

06C1 1003 

06C2 4808 

06C3 COIF 

06C4 D01F 

06C5 1 6500 06CB 
06C7 1 6D00 05E6 
06C9 1 4C00 08DA 

06CB 1 74FF 06E4 
06C0 70F7 

06CE 1 6500 0AD4 
06D0 1 6D00 0784 



SET NUMBER OF COLUMNS 
PUNCH ONE CARD 



* ROUTINE 5 - READ FLIPPED PATTERN 
s****************************************,,. *.,,,,< 

* THIS ROUTINE HILL READ THE FLIPPED PATTERN 

* PUNCHED BY ROUTINES 3 AND 4, THEN COMPARE 

* WITH DESIRED PATTERN. 

* 

* 

RT5 



* 
RT51 



LDX 
STX 
LDX 
LDX 
BSI 

LDX 
BSI 
BSC 
LDX 
STX 
BSI 



BSI 
MDX 

************ 

* 

************ 

* THIS ROUT 

* AND INCRE 

* COMMAND. 

* THE FIRST 
* 



1 WARFA 
1 DADRS 
1 2 

3 ASTOH 
TYPE 

RAREA 

READR 

RT51,- 

40 

FLIPS 

COMPR 



ROTAT 
RT51 



SET FOR START OF 

ROTATE PATTERN 
MESSAGE NUMBER 
STK TO HOPPER 
PRINT MESSAGE 



READ ONE CARD 
REPEAT IF NO OP COMP 
SET NUMBER OF COLUMNS 
SET FLIP SW 
COMPARE DATA READ 
WITH DATA PUNCHED 

ROTATE THE PATTERN 



*******************************$$ 

ROUTINE 6 - CLUTCH TEST 

******♦**********************$$,(.$ 

INE WILL READ GANG PUNCHED CARDS WITH 
ASING DELAY BETWEEN EACH START READ 
ALL CARDS REAO WILL BE COMPARED WITH 
CARD. 



* 
RT6 



* 
RT61 



RT62 



* 
RT63 



* 
RT64 



RT65 



LDX 
LDX 
STX 
LDX 
BSI 

LDX 
BSI 

SRA 
STO 
LDX 
STX 

STX 
LD 

SLA 
BSC 
LD 
STO 

LDX 
STX 
BSC 

MDX 
MDX 

LDX 
STX 



1 4 
L3 ALACD 
L3 ALPHAfil 
L3 ALDBK 
L TYPE 

LI RAREB 
L READR 

16 
L DFACT 
3 125 
3 T6CNT 



LOOP 

SW2 

3 

£ 

DFACT 

DLYCT 



LI RT64 

LI MLSCF61 
L WAIT4 

L DLYCT, -1 
RT63 

LI RAREB 
LI DADRS 



MESSAGE NUMBER 
OR GANG PUNCH 

LD BLANKS 
PRINT MESSAGE 



READ ONE CARD 

RESET CLUTCH DELAY FACTOR 

INITIALIZE PASS COUNT 

SET LOOP FUNCTION ADDRS 
CK SW2 FOR CONSTANT DELAY 



LD DELAY FACTOR 
SET DELAY COUNTER 



SET RETURN ADDRS 
GO TO MONITOR 

DEC COUNTER 



SET FOR COMPARE 



30F02750 

30F02760 

30F02770 

3OFO2780 

30F02790 

30F02800 

30F02810 

30F02820 

30F02830 

30F02840 

30F02850 

30F02860 

30F02870 

30F02880 

30F02890 

30F02900 

30F02910 

30F02920 

30F02930 

30F02940 

30F02950 

30F02960 

30F02970 

30F02980 

30F02990 

30F03000 

30F03010 

30F03020 

30F03030 

30F03040 

30F03050 

30F03060 

30F03070 

30F03080 

30F03090 

30F03100 

30F03110 

30F03X20 

30F03130 

30F03140 

30F03150 

30F03160 

30F03170 

30F03180 

30F03190 

30F03200 

30F03210 

30F03220 

30F03230 

30F03240 

30F03250 

30F03260 

30F03270 

30F03280 

30F03290 

30F03300 

30F03310 

30F03320 

30F03330 

30F03340 

30F03350 

30F03360 

30F03370 

30F03380 

30F03390 

30F03400 

30F03410 

30F03420 



06D2 


1 


6500 


0A84 


06D4 


1 


4400 


076C 


06D6 


1 


4C10 


06CE 


0608 





6350 




06D9 


1 


4400 


07A3 


06DB 


1 


4400 


07F0 


06UD 


1 


7401 


06E3 


06DF 


1 


74FF 


06E5 


06E1 





70DD 




06E2 





70D5 





06E3 0000 
06E4 0000 
06E5 0000 



06E6 1 6500 0A84 
06E8 1 6D00 0784 
06EA 6107 
06EB 1 6700 09EB 
06ED 1 4400 0967 

06EF 1 4400 0942 

06F1 6107 

06F2 1 6700 0A15 

06F4 1 4400 0967 

06F6 1 OCOO 0782 
06F8 C020 
06F9 100C 
06FA 1 4C28 0702 

06FC 1 6500 06F6 
06FE 1 6D00 05E6 
0700 1 4C00 08DA 



0702 
0703 



C016 

1804 



0704 1004 

0705 D013 


1 





0706 
0707 
0709 
070A 



6150 

D500 0A83 



71FF 
70FC 



070B 1 6780 05E1 
070D 7300 
070E 7001 
070F 6350 
0710 1 4400 078D 



0712 
0713 
0714 
0716 

0718 



086F 
C005 

F400 0A84 
4C20 06F6 
70F2 



LDX 


LI 


RAREA 


BSI 


L 


READR 


BSC 
LDX 
BSI 


L 
3 

L 


RT65,- 

80 

COMPR 


BSI 


L 


LOCK 


MDX 
MDX 
MDX 
MDX 


L 
L 


DFACT, 1 
T6CNT,-1 
RT62 
RT61 


DC 




*-* 


DC 




*-* 


DC 




*-* 



READ ONE CARD 
REPEAT IF NO OP COMP 
SET NUMBER OF COLUMNS 
COMPARE DATA READ 

WITH DATA PUNCHED 
CK FOR LOCK ON FUNCTION 

ADV CLUTCH DELAY FACTOR 
DEC COUNT 

RESET DELAY 

DFACT DC 
DLYCT DC 
T6CNT DC 
* 

a****************************^*.^.^********* 

* ROUTINE 7 - PUNCH FROM SWITCHES 

*********************** ^^ss^s************** 
THIS ROUTINE WILL PUNCH ALL CARD COLUMNS 
WITH THE DATA SET IN BIT SWITCHES 0-11. 



* 
* 

* 

* 
RT7 



* 
RT71 



* 
RT72 



RT73 



* 
RT74 



LDX 
STX 
LDX 
LDX 
BSI 

BSI 
LDX 
LDX 
BSI 

XIO 

LD 

SLA 

BSC 

LDX 
STX 
BSC 

LD 

SRA 

SLA 

STO 

LDX 

STO 

MDX 

MDX 

LDX 
MDX 
MDX 
LDX 
BSI 

XIO 

LD 

EOR 

BSC 

MDX 



LI RAREA 
LI DADRS 

1 7 
L3 ALDBK 
L TYPE 

L READY 

1 7 
L3 ASETP 
L TYPE 

L SNSWS 
RT7SW 
12 

L RT72,£Z 

LI RT71 
LI MLSCF61 
L WAIT4 

RT7SW 
4 
4 

RT7SW 
1 80 
LI RAREA-1 
1 -1 
RT73 

13 SW2 

3 
*£1 

3 80 
L PNCHR 



SNSWS 

RT7SW 

RAREA 

RT71.Z 

RT74 



SET TO PUNCH FROM 
RAREA 

LD BLANKS 
PRINT MESSAGE 



SET PATT 
PRINT MESSAGE 

READ BIT SWS 
LD SW SETTING 
CHECK BIT 12 
BR IF 12 ON 



LD PATTERN 
REMOVE 12 BIT 



FILL RAREA 
WITH PATTERN 



CK COL CNT OPTION 



SKIP IF SW2 SET 
PUNCH ONE CARD 

READ BIT SWS 

CK FOR CHANGE OF SWS 
BR IF SW CHANGED 



0719 0000 



RT7SW DC *-* 

* 

********************** 



BIT SW STORAGE 

******* **************#:<< 



30F03430 

30F03440 

30F03450 

30F03460 

30F03470 

30F03480 

30F03490 

30F03500 

30F03510 

30F03520 

30F03530 

30F03540 

30F03550 

30F03560 

3OF0357O 

30F03580 

30F0359O 

30F03600 

30F03610 

30F03620 

30F03630 

30F03640 

30F03650 

30F03660 

30F03670 

30F03680 

30F03690 

30F03700 

30F03710 

30F03720 

30F03730 

30F03740 

30F03750 

30F03760 

30F03770 

30F03780 

30F03790 

30F03800 

30F03810 

30F03820 

30F03830 

30F03840 

30F03850 

30F03860 

30F03870 

30F03880 

30F03890 

30F03900 

30F03910 

30F03920 

30F03930 

30F03940 

30F03950 

30F03960 

30F03970 

30F03980 

30F03990 

30F04000 

30F04010 

30F04020 

30F04030 

30F04040 

30F04050 

30F04060 

30F04070 

30F04080 

30F04090 

30F04100 
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731 6103 

0732 1 6700 09F1 

0734 1 4400 0967 

0736 1 6500 0A33 

0738 4033 

0.739 1 6C00 05E0 

073B 1 4400 05F8 



073D 





0000 




073E 


1 


7401 


0784 


0740 


1 


C480 


0784 


0742 





F045 




0743 


1 


4CA0 


073D 


0745 


1 


6500 


0A33 


0747 





693C 




0748 


1 


4C80 


073D 



074A 





0000 




074B 


1 


6500 


0AD4 


074D 





1810 




074E 


1 


D400 


0894 


0750 





401B 




0751 


1 


6680 


08AC 



* ROUTINE 8 - GANG PUNCH 
********************************************* 

* THIS ROUTINE WILL READ ONE CARD THEN PUNCH 

* ALL FOLLOWING CARDS WITH DATA READ FROM FIRST 

* CARD. 



SET TO PUNCH 

DATA READ 
MESSAGE NUMBER 
LD ANY PATTERN PLUS BLANKS 
PRINT MESSAGE 



READ ONE CARD 

CK FOR BLANK CARD 

SET LOOP FUNCTION ADDRS 

SET NUMBER OF COLUMNS 

PUNCH ONE CARD 

CHECK FOR LOCK ON FUNC 



***************** ************* *************** 

* ROUTINE 9 - MODIFY ROTATE PATTERN 

********************************************* 

* THIS ROUTINE WILL REPLACE THE ROTATE DATA 

* TABLE WITH ANY DESIRED PATTERN- THEN START 

* WITH ROUTINE 1. 



071A 


1 


6500 


0A84 


* 
RT8 


LDX 


LI 


RAREA 


071C 


1 


6D00 


0784 




STX 


LI 


DADRS 


071E 





6103 






LDX 


1 


3 


071F 


1 


6700 


09F1 




LDX 


L3 


ANYP 


0721 


1 


4400 


0967 


* 


BSI 


L 


TYPE 


0723 


1 


6500 


0A84 


LDX 


LI 


RAREA 


0725 


1 


4400 


076C 


* 
RT81 


BSI 


L 


READR 


0727 


1 


4400 


074A 


BSI 


L 


BLANK 


0729 


1 


6C00 


0894 




STX 


L 


LOOP 


072B 





6350 






LDX 


3 


80 


072C 


1 


4400 


078D 




BSI 


L 


PNCHR 


072E 


1 


4400 


07F0 




BSI 


L 


LOCK 


0730 





70F6 






MDX 




RT81 



RT9 



LDX 1 3 

LDX L3 ANYP 
BSI L TYPE 



MESSAGE NUMBER 

LD ANY PATTERN PLUS BLANKS 

PRINT MESSAGE 



LDX LI WAREA 

BSI READR READ ONE CARD 

* 

STX L SW1 SET CONTROL TO RESTART 

BSI L CNTRL GO TO CONTROL 

* 
********************************************* 

* ROTATE THE DATA TABLE ADDRESS 

********************************************* 

* 

ROTAT OC *-* 

MDX L DADRS, 1 ADVANCE THE DATA ADDRS 

LD I DADRS CHECK FOR DATA 

EOR TERM TABLE TERMINATOR 

BSC I ROTAT, Z RETURN IF NO TERM 

LDX LI WAREA IF TERM - RESET TO 

STX 1 DADRS START OF TABLE 

BSC I ROTAT 

* 

********************************************* 

* CHECK FOR BLANK CARD 
********************************************* 

* THIS SUBROUTINE WILL READ A CARD AND CHECK 

* THAT IT IS BLANK. 

* 

* 

BLANK DC *-* 

LDX LI RAREB 

SRA 16 

STO L LOOP SET FOT NO LOOP 

BSI READR READ ONE CARD 

* 

LDX 12 COLCT CHECK FOR BLANK CARD 



30F04110 
30F04120 
30F04130 
30F04140 
30F04150 
30F04160 
30F04170 
30F04180 
30F04190 
30F04200 
30F04210 
30F04220 
30F04230 
30F04240 
30F04250 
30F04260 
30F04270 
30F04280 
30F04290 
30F04300 
30F04310 
30F04320 
30F04330 
30F04340 
30F04350 
30F04360 
30F04370 
30F04380 
30F04390 
30F04400 
30F04410 
30F04420 
30F04430 
30F04440 
30F04450 
30F04460 
30F04470 
30F04480 
30F04490 
30F04500 
30F04510 
30F04520 
30F04530 
30F04540 
30F04550 
30F04560 
30F04570 
30F04580 
30F04590 
30F04600 
30F04610 
30F04620 
30F04630 
30F04640 
30F04650 
30F04660 
30F04670 
30F04680 
30F04690 
30F04700 
30F04710 
30F04720 
30F04730 
30F04740 
30F04750 
30F04760 
30F04770 
30F04780 



0753 1 C600 0AD3 
0755 1 4C20 07FE 

0757 72FF 

0758 70FA 

0759 1 4C80 074A 



BLK1 LD L2 RAREB-1 

BSC L ERRO,Z 
MDX 2 -1 

MDX BLK1 

BSC I BLANK 



BR IF NOT BLANK 



******************* 

* FEED 

******************* 

* 



************ 
A CARD 
************ 



*T-V**-i-V-i--.*'r--i»V"*-V 



075B 
075C 
075E 
0760 
0762 
0764 
0765 
0767 
0768 
076A 



0000 

1 4400 0942 
1 D400 0894 
1 6500 09DC 
1 6D00 089A 

6100 

1 6000 08AD 

081C 

1 4400 08AF 
1 4C80 075B 



FEED 



DC 

BSI 

STO 

LDX 

STX 

LDX 

STX 

XIO 

BSI 

BSC 



*— * 

READY 

LOOP 



LI AFD 
LI OP 

1 
LI COLCT 
FDACD 
L WAIT 
I FEED 



Gl 
-1 



SET FOR NO LOOP 



SET INTRPT DSW S/B 
SET FOR NO COL INTRPTS 
FEED A CARD 
WAIT FOR INTERRUPT 



******************* 

* READ 

******************* 

* THIS SUBROUTINE W 

* 80 COLUMNS WERE R 

* AND OPERATION COM 

* 



************************** 

A CARD 

************************** 

ILL READ A CARD THEN CHECK THAT 
EAD AND CHECK THE BUSY, INTRPT, 
PLETE DSWS. 



076C 





0000 




READR 


DC 




*-* 




0760 


1 


6DO0 


0904 




STX 


LI 


READ 


SET READ BUFFER ADDRS 


076F 





6350 






LDX 


3 


80 




0770 


1 


6F00 


08AD 




STX 


L3 


C0LCTG1 


SET COL COUNT S/B 


0772 





1011 






SLA 




17 




0773 





D018 






STO 




FLIPS 


RESET FLIP SW 


0774 


1 


4400 


0942 


$ 


BSI 


L 


READY 




0776 


1 


6500 


09D5 




LDX 


LI 


ARD 




0778 


1 


6D00 


089A 




STX 


LI 


OP 




077A 





6500 


8003 




LDX 


LI 


/8003 


SET INTRPT DSW S/B 


077C 





0809 






XIO 




RDRST-1 


START THE READER 


077D 


1 


4400 


08AF 


* 
^c 


BSI 


L 


WAIT 




077F 


1 


4C80 


076C 


BSC 


I 


READR 


RETURN 


0782 




0000 






BSS 


E 







0782 


1 


0719 




SNSWS 


DC 




RT7SW 


READ BIT SWS 


0783 





3A00 






DC 




/3A00 




0784 





0000 




DADRS 


DC 




*-* 




0785 





1402 




FDACD 


DC 




/1402 


FEED A CARD 


0786 





0000 




PDATA 


DC 




*-* 


PUNCH ADDRS BUFFER 


0787 





1404 




RDRST 


DC 




/1404 


START READER 


0788 





FFFF 




TERM 


DC 




/FFFF 




0789 





1401 




PCHST 


DC 




/1401 


START PUNCH 


078A 





0000 




NCOL 


DC 




*-* 


COL PUNCH OR COMPARE CNT 


078B 





1480 




STACK 


DC 




/1480 


SELECT #2 STACKER 


078C 





0000 




FLIPS 


DC 




*-* 


FLIP SW 



078D 0000 



********************************************* 

* PUNCH A CARD 
********************************************* 

* THIS SUBROUTINE WILL PUNCH A CARD THEN CHECK 

* THAT THE PROPER NUMBER OF COLUMNS WERE PUNCHED, 

* AND CHECK THE BUSY, INTERRUPT, AND OPERATION 

* COMPLETE DSWS. 



PNCHR DC 



30F04790 
30F04800 
30F04810 
30F04820 
30F04830 
30F04840 
30F04850 
30F04860 
30F04870 
30F04880 
30F04890 
30F04900 
30F04910 
30F04920 
30F04930 
30F04940 
30F04950 
30F04960 
30F04970 
30F04980 
30F04990 
30F05000 
30F05010 
30F05020 
30F05030 
30F05040 
30F05050 
30F05060 
30F05070 
30F05080 
30F05090 
30F05100 
30F05110 
30F05120 
30F05130 
30F05140 
30F05150 
30F05160 
30F05170 
30F05180 
30F05190 
30F05200 
30F05210 
30F05220 
30F05230 
30F05240 
30F05250 
30F05260 
30F05270 
30F05280 
30F05290 
30F05300 
30F05310 
30F05320 
30F05330 
30F05340 
30F05350 
30F05360 
30F05370 
30F05380 
30F05390 
30F05400 
30F05410 
30F05420 
30F05430 
30F05440 
30F05450 
30F05460 
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078E 


1 


6F00 


08AD 




STX 


L3 


C0LCTG1 


SET COL COUNT S/B 


30F05470 












* 










30F05480 




0790 


1 


4400 


0942 


PNCH1 


BSI 


L 


READY 




30F05490 




0792 





08F7 




* 


XIO 




STACK-1 


SELECT STACKER 2 


30F05500 
30F05510 




0793 


1 


C400 


08AD 




LD 


L 


C0LCT61 




30F05520 




0795 





D0F4 






STO 




NCOL 


SET PUNCH COL COUNT 


3OF05530 




0796 





COED 






LD 




DADRS 


SET FOR START OF 


30F05540 




0797 





DOEE 






STO 




PDATA 


NEXT PATTERN 


3OF0555O 




0798 


1 


6500 


09D8 




LDX 


LI 


APCH 




30F05560 




079A 


1 


6D00 


089A 




STX 


LI 


OP 




30F05570 




079C 





6500 


4003 




LDX 


LI 


/4003 


SET INTRPT DWS S/B 


30F05580 




079E 





08E9 






XIO 




PCHST-1 


START THE PUNCH 


30F05590 




079F 


1 


4400 


08AF 


* 


BSI 


L 


WAIT 


WAIT FOR INTERRUPTS 


30F05600 
30F05610 




07A1 


1 


4C80 


0780 


* 


BSC 


I 


PNCHR 




30F05620 
30F05630 












********************************************* 


30F05640 












* 






COMPARE i 


DATA READ 


30F05650 












***** 


***** 


*********************************** 


30F05660 












* THIS SUBROUTINE WILL 


COMPARE THE DATA READ WITH 


30F05670 












* THE 


PATTERN 


EXPECTED 


FOR THAT CARD. 


30F05680 
30F05690 
































* 










30F05700 




07A3 





0000 




COMPR 


DC 




*-* 




30F05710 




07A4 





6BE5 






STX 


3 


NCOL 


SET NUMBER OF COLUMNS 


30F05720 




07A5 





6700 


7401 




LDX 


L3 


/7401 


SET FOR POSITIVE INCR 


30F05730 




07A7 





6B12 






STX 


3 


INCR 




30F05740 




07A8 





CODB 






LD 




DADRS 


SET FOR START OF 


30F05750 




07A9 





DODC 






STO 




PDATA 


NEXT PATTERN 


30F05760 




07AA 





1011 






SLA 




17 




30F05770 




07AB 


1 


D400 


0884 




STO 


L 


M 


SET FOR FIRST ERROR 


30F05780 




07 AD 





6101 




* 


LDX 


1 


1 


XR1#C0LUMN COUNT 


30F05790 
30F05800 




7AE 


1 


6D00 


08AE 


C0M1 


STX 


LI 


COL 


SAVE COL COUNT 


30F05810 




0760 


1 


C480 


0786 




LD 


I 


PDATA 


LD NEXT DATA WORD 


30F05820 




07B2 





1803 






SRA 




3 




30F05830 




07B3 





1003 






SLA 




3 




30F05840 




07B4 


1 


D400 


08AB 




STO 


L 


DATAS1 


SAVE IN DATA S/B 


30F05850 




07B6 


1 


F500 


0A83 




EOR 


LI 


RAREA-1 


COMPARE WITH DATA READ 


30F05860 




07B8 


1 


4420 


0851 




BSI 


L 


ERR9,Z 


BR IF ERROR 


30F05870 




07BA 


1 


7401 


0786 


INCR 


MDX 


L 


PDATA, 1 


ADV DATA ADRS 


30F05880 




07BC 





7101 






MDX 


1 


1 


ADV COLUMN COUNT 


30F05890 




07BD 





1000 






NOP 








30F05900 




07BE 


1 


C480 


0786 




LD 


I 


PDATA 


CK FOR DATA TABLE 


30F05910 




07C0 





F0C7 






EOR 




TERM 


TERMINATOR 


30F05920 




07C1 


1 


4C20 


07C6 




BSC 


L 


C0M2.Z 


BR IF NO TERM 


30F05930 




07C3 


1 


6700 


0A33 




LDX 


L3 


WAREA 


RESET TO START 


30F05940 




07C5 





6BC0 




* 


STX 


3 


PDATA 


OF TABLE 


30F05950 
30F05960 




07C6 


1 


C400 


08AE 


COM2 


LD 


L 


COL 


CHECK FOR LAST COL READ 


30F05970 




07C8 


1 


9400 


08AC 




S 


L 


COLCT 




30F05980 




07CA 


1 


4C10 


07E2 




BSC 


L 


C0M4,- 


BR IF LAST COL 


30F05990 




07CC 


1 


74FF 


078A 




MDX 


L 


NCOL.-l 


COUNT COLUMNS SHOULD 


30F06000 




07CE 





70DF 




* 


MDX 




C0M1 


HAVE READ 


30F06010 
30F06020 




07CF 


1 


7400 


078C 


COM3 


MDX 


L 


FLIPS, 


CK FLIP SW 


30F06030 




07D1 





7015 




* 


MDX 




C0M5 


BR IF FLIP 


30F06040 
30F06050 




0702 





1011 






SLA 




17 


THE REST OF CARD 


30F06060 




07D3 


1 


D400 


08AB 




STO 


L 


DATAU 


SHOULD BE ZERO 


30F06070 




0705 


1 


6D00 


08AE 




STX 


LI 


COL 




30F06080 




0707 


1 


F500 


0A83 




EOR 


LI 


RAREA-1 




30F06090 




0709 


1 


4420 


0851 




BSI 


L 


ERR9.Z 




30F06100 




07DB 





7101 






MDX 


1 


1 




30F06110 




07UC 


1 


C400 


08AE 




LD 


L 


COL 




30F06120 




07DE 


1 


9400 


08AC 




S 


L 


COLCT 




30F06130 




07E0 


1 


4C28 


07CF 




BSC 


L 


C0M3,£Z 




30F06140 


DATE 
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07E2 1011 

07E3 1 D400 0884 

07E5 1 4C80 07A3 

07E7 1 6700 OAAB 
07E9 6B9C 
07EA 6700 74FF 
07EC 6BCD 
07ED 6228 
07EE 6A9B 
07EF 70BE 



07F0 0000 
07F1 1 C400 05DF 
07F3 EC80 0166 
07F5 100A 
07F6 1 4C90 07F0 
07F8 1 C400 0894 
07FA 1 4CA0 0894 
07FC 1 4C80 07F0 



07FE 
07FF 
0800 
0801 
0803 
0805 



6100 
6200 

C86D 

1 6C00 0890 
1 4400 0886 
1 4C00 074B 



0807 0000 

0808 1 7400 0885 
080A 7006 
080B 6101 
080C 6203 
080D C862 
080E 1 6C00 0890 

0810 4075 

0811 1011 

0812 D072 

0813 1 4C80 0807 

0815 0000 

0816 6102 

0817 620C 

0818 C859 

0819 406C 
081A 1 4C80 0815 



081C 
081D 

081F 
0821 



0000 

F400 08A7 
D400 08A6 
6104 



0822 6230 

0823 C852 

0824 4061 

0825 1 4C80 081C 

0827 0000 

0828 685C 

0829 6600 OOCO 



COM4 



* 
C0M5 



SLA 17 
STO L M 
BSC I COMPR 



LDX 
STX 
LDX 
STX 
LDX 
STX 
MDX 



L3 RAREA&39 

3 PDATA 

L3 /74FF 

3 INCR 

2 40 

2 NCOL 
C0M1 



RESET MULT LINE CONTROL 



SET TO COMPARE LAST 
HALF WITH 1ST HALF 
SET FOR NEGATIVE INCR 

COMPARE NEXT 
40 COLUMNS 



* 

***** 

* 

***** 

* 

LOCK 



* 

***** 
* 
***** 

ERRO 



************* ************************** 

LOCK ON FUNCTION 

*************************************** 

DC *-* 

LD L SWO LD SWO 

OR I ERLCK COMB WITH MONITOR SWO 

SLA 10 CHECK LOCK SW 

BSC I LOCK,- BR IF NOT LOCK ON FUNC 

LD L LOOP LOAD LOOP ADDRS 

BSC I LOOP.Z LOOP ON LAST FUNC 

BSC I LOCK IF LOOP ADDRS IS NOT ZERO 

************************************ **** 

ERROR MESSAGE SETUP 

**************************************** 



ERR1 



* 
ERR1A 



* 
ERR2 



* 
ERR4 



LDX 
LDX 
LDD 
STX 
BSI 
BSC 

DC 

MDX 

MDX 

LDX 

LDX 

LDD 

STX 

BSI 

SLA 
STO 
BSC 

DC 

LDX 

LDX 

LDD 

BSI 

BSC 

DC 

EOR 
STO 
LDX 
LDX 
LDD 
BSI 
BSC 



/OOOO 

MSGO 

OPMSW 

ETYPE 

BLANK61 

*-* 

ERR5S.0 

ERR1A 

1 

/3 

MSG1 

OPMSW 

ETYPE 



17 

ERR5S 
I ERR1 



I 



*_* 

2 

/C 

MSG2 

ETYPE 

ERR2 

*-* 

DSWSB 

DSWO 

4 

/30 

MSG4 

ETYPE 

ERR4 



ERR5 DC *-* 

STX FRR5S 
LDX L? /CO 



CARD NOT BLANK 



PRINT ERR MSG 



STATIC DSW ERROR 
IF PREVIOUS ERR5 
DO NOT PRINT THIS MSG 



PRINT ERR MSG 
RESET ERR5 SW 
BUSY DSW ERROR 

PRINT ERROR MESSAGE 



INTRPT DSW ERROR 
RESTORE DSW WAS 



PRINT ERR MSG 



INTRHT 4 DSW ERROR 
SET ERROR 5 SW 
SET DATA ID 



30F06150 

30F06160 

30F06170 

30F06180 

30F06190 

30F06200 

30F06210 

30F06220 

30F06230 

30F06240 

30F06250 

30F06260 

30F06270 

30F06280 

30F06290 

30F06300 

30F06310 

30F06320 

30F06330 

30F06340 

30F06350 

30F06360 

30F06370 

30F06380 

30F06390 

30F06400 

30F06410 

30F06420 

30F06430 

30F06440 

30F06450 

30F06460 

30F06470 

30F06480 

30F06490 

30F06 500 

30F06510 

30F06520 

30F06530 

30F06 540 

30F06550 

30F06560 

30F06570 

30F06580 

30F06590 

30F06600 

30F06610 

30F06620 

30F06630 

30F06640 

30F06650 

30F06660 

30F06670 

30F06680 

30F06690 

30F06 700 

30F06710 

30F06720 

30F06730 

30F06740 

30F06750 

30F06760 

30F06770 

30F06780 

30F06790 

30F06800 

30F06810 

30F06820 
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082B 





F07C 






EOR 




DSW4 


GET DSW S/B 


30F06830 


082C 





007C 






STO 




DSW4£1 


SET IN MSG 


30F06840 


082D 





C07A 






LO 




DSW4 




30F06850 


082E 





1002 






SLA 




2 


LOOK FOR ERR CK 


30F06 860 


082F 


1 


4C28 


0836 


* 


BSC 


L 


ERR6»&Z 


BR IF ERR CK 


30F06870 
30F06880 


0831 





6105 






LOX 


1 


5 




30F06890 


0832 





C845 






LDD 




MSG5 




30F06900 


0833 





4052 






BSI 




ETYPE 


PRINT ERR MSG 


30F06910 


0834 


1 


4C80 


0827 


ERR5R 

* 


BSC 


I 


ERR5 




30F06920 
30F06930 


0836 





C070 




ERR6 


LD 




DSWSB 


CK FOR PUNCH OPERATION 


30F06940 


0837 


1 


4C08 


0845 




BSC 


L 


ERR7»t 


BR IF NOT PUNCH 


30F06950 


0839 


1 


ocoo 


0904 




XIO 


L 


READ 


RD ECHO BITS 


30F06960 


083B 


1 


C480 


0904 




LD 


I 


READ 




30F06970 


083D 


1 


4C18 


0845 




BSC 


L 


ERR7,£- 


BR IF NOT PUNCH CK 


30F06980 


083F 





D062 






STO 




DSW 


STO ECHO IN MSG 


30F06990 


0840 





6106 






LDX 


1 


6 




30F07000 


0841 





6203 






LDX 


2 


/3 




30F07010 


0842 





C837 






LDD 




MSG6 




30F07020 


0843 





4042 






BSI 




ETYPE 


PRINT ERR MSG 


30F07030 


0844 





70EF 




* 


MDX 




ERR5R 




30F07040 
30F07050 


0845 





6107 




ERR7 


LDX 


1 


7 


ERR CK 


30F07060 


0846 





C835 






LDD 




MSG7 




30F07070 


0847 





403E 






BSI 




ETYPE 


PRINT ERR MSG 


30F07080 


0848 





70EB 




* 


MDX 




ERR5R 




30F07090 
30F07100 


0849 





0000 




ERR8 


DC 




*-* 


COL COUNT ERROR 


30F07110 


084A 





6108 






LDX 


1 


8 




30F07120 


084B 





6600 


OCOO 




LOX 


L2 


/COO 




30F07130 


0840 





C830 






LDD 




MSG8 




30F07140 


084E 





4037 






BSI 




ETYPE 


PRINT ERR MSG 


30F07150 


084F 


1 


4C80 


0849 


* 


BSC 


I 


ERR8 




30F07160 
30F07170 


0851 





0000 




ERR9 


DC 




*-* 


DATA COMPARE ERROR 


30F07180 


0852 





F058 






EOR 




DATAS1 


RESTORE TO DATA HAS 


30F07190 


0853 





D056 






STO 




DATA 




30F07200 


0854 





69 OD 






STX 


1 


RXU1 


SAVE XR1 


30F07210 


0855 





10A0 






SLT 




32 




30F07220 


0856 





6600 


9300 




LDX 


L2 


/9300 


SET FOR MULTI LINE MSG 


30F07230 


0858 


1 


7400 


0884 




MOX 


L 


M 


CHECK FOR MULTI LINE 


30F07240 


085A 





7005 






MDX 




ERR9A 


BR IF FIRST LINE 


30F07250 


085B 





6828 






STX 




M 


SET MULTI LINE HORD 


30F07260 


085C 





6109 






LDX 


1 


9 


MESSAGE NUMBER 


30F07270 


0850 





6600 


1300 




LDX 


L2 


/1300 


SET WORD CNTL 


30F07280 


085F 





C820 






LDD 




MSG9 




30F07290 


0860 





4025 




ERR9A 


BSI 




ETYPE 


ERROR TYPE OUT 


30F07300 


0861 





6500 


0000 


RX1 


LDX 


LI 


*-* 


RESTORE XR1 


30F07310 


0863 


1 


OCOO 


078A 




XIO 


L 


STACK-1 


SELECT ERROR CARD 


30F07320 


0865 


1 


4C80 


0851 


* 


BSC 


I 


ERR9 


RETURN 


30F07330 
30F07340 


0867 





0000 




ERR10 


DC 




*-* 




30F07350 


0868 





6110 






LDX 


1 


/10 




30F07360 


08 69 





6240 






LDX 


2 


MO 




30F07370 


086A 





C817 






LDD 




MSG10 




30F07380 


086B 





401 A 






BSI 




ETYPE 




30F07390 


086C 


I 


4C80 


0867 


* 


BSC 


I 


ERR10 




30F07400 
30F07410 










* 


ALPHA MESSAGE ADDRESSES 


30F07420 










* 










30F07430 


086E 




0000 






BSS 


E 







30F07440 


086E 


1 


0976 




MSGO 


DC 




ACNBK 


CARD NOT BLANK 


30F07450 


086F 





0000 






DC 




0000 




30F07460 


0870 


1 


097E 




MSG1 


DC 




AH AS 




30F07470 


0871 


1 


098A 






DC 




ASDSW 




30F07480 


0872 


1 


097E 




MSG2 


DC 




AH AS 




30F07490 


0873 


1 


0993 






DC 




ABDSH 




30F07500 
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0874 


1 


09A3 


MSG3 


DC 




ANINT 






30F07510 


0875 


1 


09AB 




DC 




ALV4 






30F07520 


0876 


1 


097E 


MSG4 


DC 




AW AS 






30F07530 


0877 


1 


0A05 




DC 




ADSWO 






30F07540 


0878 


1 


097E 


MSG5 


DC 




AW AS 






30F07550 


0879 


1 


099B 




DC 




ADSW4 






30F07560 


087A 


1 


097E 


MSG6 


DC 




AW AS 






30F07570 


087B 


1 


09B3 




DC 




APCK 






30F07580 


087C 


1 


097E 


MSG7 


DC 




AW AS 






30F07590 


087D 


1 


09B9 




DC 




AECK 






30F07600 


087E 


1 


0983 


MSG8 


DC 




ADWAS 






30F07610 


087F 


1 


09BE 




DC 




ACCNT 






30F07620 


0880 


1 


097E 


MSG9 


DC 




AW AS 






30F07630 


0881 


1 


09C5 




DC 




ADATA 






30F07640 


0882 


1 


09A3 


MSG10 


DC 




ANINT 






3OF07650 


0883 


1 


09AF 




DC 




ALVO 






30F07660 


0884 





0000 


M 


DC 




*-* 




MULTI LINE CONTROL WORD 


30F07670 


0885 





0000 


ERR5S 

* 


DC 




*-* 




ERR5 SW 


30F07680 
30F07690 








*******************£#$$##$# #3 ********** ****** 


30F07700 








* 






PRINT 


ERROR MESSAGE 


3OF07710 








************* 


******************************** 


30F07720 








* 


THIS 


ROUTINE PRINTS ALL THE ERROR MESSAGES. 


30F07730 








* 


UPON 


ENTRY THE 


MSG 


NO. MUST BE SET IN XR1, 


30F07740 








* 


THE 


DATA ID IN 


i XR2 


t AND THE ALPHA ADDRS IN 


30F07750 








* 


THE 


ACCUM AND 


EXT. 




30F07760 
30F07770 


























* 












30F07780 


0886 





0000 


ETYPE 


DC 




*-* 






30F07790 


0887 





6915 




STX 


1 


TABLE 




MSG NUMBER 


30F07800 


0888 





6A16 




STX 


2 


TABLE62 


DATA ID 


30F07810 


0889 





D816 


* 


STD 




AMSG 




ALPHA MESSAGE 


30F07820 
30F07830 


088A 


1 


7400 0890 




MDX 


L 


OPMSW 




PRINT LAST OP MSG IF 


30F07840 


088C 





7004 




MDX 




ETYP1 




FIRST ERROR MSG AFTER 


30F07850 


088D 





4480 0162 




BSI 


I 


ERROR 




A CONTROL OP 


30F07860 


088F 


1 


0896 




DC 




ETYP2 






30F07870 


0890 





0000 


OPMSW 
* 


DC 




*-* 




MUST BE ZERO FOR OP MSG 


30F07880 
30F07890 


0891 





4480 0162 


ETYP1 


BSI 


I 


ERROR 




PRINT ERROR MESSAGE 


30F07900 


0893 


1 


089D 




DC 




TABLE 






30F07910 


0894 





0000 


LOOP 


DC 




*-* 






30F07920 


0895 





68FA 


* 


STX 




OPMSW 






30F07930 
30F07940 


0896 


1 


4C80 0886 


ETYP2 

* 


BSC 


I 


ETYPE 




RETURN 


30F07950 
30F07960 


0898 





8000 




DC 




/8000 






3OF07970 


0899 


1 


09CF 




DC 




ALOP 






3OF0798O 


089A 





0000 


OP 
* 


DC 




*-* 






30F07990 
30F08000 
30F08010 


























* 


ERROR M 


ESSAGE 


TABLE 


30F08020 
30F08030 
30F08040 


089C 




0001 




BSS 


E 


1 






089D 





0000 


TABLE 


DC 




*-* 




MESSAGE NUMBER 


30F08050 


089 E 





1C00 




DC 




/1C00 




HEX/DECIMAL SW 


30F08060 


089F 





0000 




DC 




*-* 




DATA WORD ID 


30F08070 


08A0 





0000 


AMSG 


DC 




*-* 




ALPHA ADDRS 1 


30F08080 


08A1 





0000 


* 


DC 




*-* 




ALPHA ADDRS 2 


30F08090 
30F08100 


08A2 





0000 


DSW 


DC 




*-* 




STATIC DSW WAS 


30F08110 


08A3 





0000 


ZERO 


DC 




/OOOO 




S/B 


30F08120 


08A4 





0000 


BDSW 


DC 




*-* 




BUSY DSW WAS 


30F08130 


08A5 





0003 




DC 




/0003 




S/B 


30F08140 


08A6 





0000 


DSWO 


DC 




*-* 




INT DSW WAS 


30F08150 


08A7 





0000 


DSWSB 


DC 




*-* 




S/B 


30F08160 


08A8 





0000 


DSW4 


DC 




*-* 




INT 4 DSW WAS 


30F08170 


08A9 





0000 




DC 




*-* 




S/B 


30F08180 



DATE 
EC NO. 



02JAN66 
415490 
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PART NO. 
PAGE 



2191224 
7A 





08AA 


0000 


DATA 


DC 




*-* 


DATA READ WAS 


30F08190 




08AB 


0000 




DC 




*-* 


S/B 


30F08200 




08AC 


0000 


COLCT 


DC 




*-* 


COLUMN COUNT WAS 


30F08210 




08A0 


0050 




DC 




80 


S/B 


30F08220 




08AE 


0000 


COL 

* 


DC 




*-* 


COLUMN IN ERROR 


30F08230 
30F08240 








♦ fc***************************************:*.,:.,.* 


30F08250 








* 






INTERRUPT 


WAIT ROUTINE 


30F08260 








***** 


*************************$****$$*](!**$** 


30F08270 








* 


THIS 


SUBROUTINE WAITS FOR INTERRUPT. 


30F08280 








* 


WHEN 


THE INTERRUPT IS RECEIVED IT WILL 


30F08290 








* 


CHECK THE ROUTINE 


SELECTION SWITCH. 


30F08300 








* 


IF A 


NEW ROUTINE HAS BEEN SELECTED IT 


30F08310 








* 


WILL 


BRANCH TO THE 


: CONTROL ROUTINE. 


30F08320 














30F08330 








* 










30F08340 




08AF 


0000 


WAIT 


DC 




*-* 




30F08350 




08B0 


69F6 




STX 


1 


OSWSB 


SAVE INT DSW S/B 


30F08360 




08B1 


6500 1000 




LDX 


LI 


/1000 


SET INTERRUPT 


30F08370 




08B3 


695C 




STX 


1 


WCNT 


WAIT CNT 


30F08380 




08B4 


0851 




XIO 




SENSE 


SENSE BUSY DSW 


30F08390 




08B5 


DOEE 




STO 




BDSW 




30F08400 




08B6 


1011 




SLA 




17 




30F08410 




08B7 


D0F4 




STO 




COLCT 


RESET COL COUNT 


30F08420 




08B8 


D056 




STO 




EBITS 


RESET INT DSW ERR BITS 


30F08430 




08B9 


D0D6 


* 


STO 




OPMSW 


RESET OP MSG SW 


30F08440 
30F08450 




08BA 


1 6500 08C3 


WAIT1 


LDX 


LI 


WAIT3 




30F08460 




08BC 


1 7400 05E6 




MDX 


L 


MLSCFE1 


CK FOR INTERRUPT 


30F08470 




08BE 


701B 


* 


MDX 




WAIT4 


BR IF INTERRUPT OCCURED 


30F08480 
30F08490 




08BF 


1 6D00 05E5 


WAIT2 


STX 


LI 


MLSCF 


SET RETURN ADDRESS 


30F08500 




08C1 


4480 0161 


* 


BSI 


I 


START 


GO TO MONITOR 


30F08510 
30F08520 




08C3 


1 74FF 0910 


WAIT3 


MDX 


L 


WCNTt-1 


DECREMENT WAIT CNT 


30F08530 




08C5 


70F4 


* 


MDX 




WAIT! 




30F08540 
30F08550 




08C6 


CODD 




LD 




BDSW 


CK BUSY DSW 


30F08560 




08C7 


FOOD 




EOR 




BDSW&l 




30F08570 




08C8 


1 4420 0815 




BSI 


L 


ERR2.Z 


BR IF ER 


30F08580 




08CA 


083B 




XIO 




SENSE 


SENSE DSW 


30F08590 




08CB 


DODC. 




STO 




DSW4 


STORE DSW IN MSG 


30F08600 




08CC 


COEO 




LD 




COLCTfcl 


CK FOR FEED OP 


30F08610 




08CD 


1 4C08 08D2 




BSC 


L 


WAT3A.C 


BR IF FEED OP 


30F08620 




08CF 


CODC 




LD 




COLCT 




30F08630 




0800 


1 4408 0867 




BSI 


L 


ERR10, £ 




30F08640 




08U2 


6103 


WAT3A 


LDX 


1 


3 




30F08650 




08D3 


6240 




LDX 


2 


/40 




30F08660 




08D4 


C89F 




LDD 




MSG3 




30F08670 




08D5 


40B0 




BSI 




ETYPE 


PRINT ERR MSG 


30F08680 




08D6 


1 6780 08AF 




LDX 


13 


WAIT 


SET TO CONTINUE FUNCTION 


30F08690 




08D8 


1 6F00 05E6 


* 


STX 


L3 


MLSCFC1 




30F08700 
30F08710 




080 A 


1 C400 05E0 


WAIT4 


LD 


L 


SW1 




30F08720 




08DC 


4488 0161 




BSI 


I 


START, £ 


CK FOR RTN SELECT 


30F08730 




08DE 


1 9400 05DD 




S 


L 


RID 


CK FOR NEW ROUTINE 


30F08740 




08EO 


1 4420 05F8 




BSI 


L 


CNTRL,Z 


BR IF NEW RTN 


30F08750 




08E2 


4480 0161 


* 


BSI 


I 


START 


GO TO MONITOR 


30F08760 
30F08770 


















30F08780 








* COME TO 


HERE FROM INTERRUPT AND CHECK FOR 


30F08790 








* ERRORS BEFORE RETURNING TO TEST ROUTINE 


30F08800 


















30F08810 








* 










30F08820 




08E4 


10A0 


RTRN 


SLT 




32 




30F08830 




08E5 


COBE 




LD 




BDSW 


CK BUSY DSW 


30F08840 




08E6 


FOBE 




EOR 




BDSWS1 




30F08850 




08E7 


1 4420 0815 




BSI 


L 


ERR2,Z 


BR IF ER 


30F08860 


ATE 


02JAN66 01MAY66 


15N0V66 








PROG ID 


C NO. 


415490 415490B 


419643 








PAGE 



08E9 C025 
08EA E023 
08EB 1 4420 081C 

08ED COBA 
08EE F01D 
08EF E01D 
08F0 1 4420 0827 
08F2 COBA 
08F3 1 4C08 08FC 

08F5 C0B6 



08F6 
08F8 
08F9 



1 4408 0867 
C0B3 
F0B3 



08FA 1 4420 0849 



08FC COAB 
08FD 1004 
08FE 1 4C02 095F 
0900 1 4C80 08AF 



0902 




0000 


0902 


1 


090A 


0903 





1100 


0904 


1 


0A84 


0905 





1200 


0906 





0000 


0907 





1700 


0908 





0008 


0909 





1701 


090 A 





0000 


090B 





1702 


09 OC 





0800 


090D 





EFFE 


090E 





EFFF 


090F 





0000 


0910 





0000 



0911 





0000 




0912 





08F5 




0913 





F093 




0914 





E8FA 




0915 





D0F9 




0916 





F090 




0917 





1000 




0918 


1 


7401 


08AC 


09 1A 


1 


4C28 


0932 


091C 


1 


C480 


0786 


091E 


1 


74FF 


078A 


0920 





7001 




0921 





E8E6 




0922 





D0E7 




0923 





08DE 




0924 


1 


7401 


0786 


0926 


1 


C480 


0786 


0928 


1 


F400 


0788 


092A 


1 


4CA0 


0911 


092C 


1 


6700 


0A33 


092E 


1 


6F00 


0786 


09 3 


1 


4C80 


0911 



LD 

AND 
BSI 
* 

LD 

EOR 

AND 

BSI 

LD 

BSC 

* 

LD 
BSI 
LD 
EOR 

BSI 

* 

* 

RTRN1 LD 
SLA 
BSC 
BSC 



EBITS 
KEFFF 
ERR4,Z 

DSW 4 

K0800 

KEFFE 

ERR5,Z 

C0LCT61 

RTRN1,£ 

COLCT 

ERR10,£ 

COLCT 

COLCT&l 

ERR8,Z 



DSW4 
4 

LSTCD.C 
WAIT 



BSS E 

PUNCH DC PBUF 

DC /1100 

READ DC RAREA 

DC /1200 

SENSE DC /OOOO 

DC /1700 

K0008 DC /0008 

SNRSO DC /1701 

PBUF DC *-* 

SNRS4 DC /1702 

K0800 DC /0800 

KEFFE DC /EFFE 

KEFFF DC /EFFF 

EBITS DC *-* 

WCNT DC *-* 
* 
*********************** 

* INTRPT 

********** ************* 
* 



030F-0 
7 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490B 



INTRO DC 
XIO 
EOR 
OR 
STO 
EOR 
NOP 

* 

MDX 

BSC 

LD 

MDX 

MDX 

OR 

STO 

XIO 

MDX 

LD 

EOR 

BSC 

LDX 

STX 

BSC 



15N0V66 
419643 



*-* 

SNRSO-1 

DSWSB 

EBITS 

EBITS 

DSWSB 





L COLCT, 1 
L CKRDR,£Z 
I PDATA 
L NCOL.-l 

*£1 

K0008 

PBUF 

PUNCH 
L PDATA, 1 
I PDATA 
L TERM 
I INTRO, Z 
L3 WAREA 
L3 PDATA 
I INTRO 



CK INT DSW 
BR IF ERR 

CK INT 4 DSW 

REMOVE RESPONSE BIT 

MASK LAST CD AND NRDY 

BR IF ERR 

CK FOR FEED OP 

BR IF FEED OP 



CK COLUMN COUNT 
COMPARE WITH S/B 
BR IF COL COUNT ER 



CK FOR LAST CARD 

BR IF LAST CARD 
RETURN TO TEST RTN 



PUNCH 
READ 
SENSE DSW 

PRINT DATA BUFFER 
INT DSW ER BITS 



********************** 

SERVICE ROUTINE 
********************** 



SENSE DSW 

CK FOR CORRECT DSW 

SAVE ERROR BITS 
RESTORE DSW 
USE FOR TRAP 

ADV COLUMN COUNT 
CK RDR IF BO - 
LD PUNCH DATA 
CK FOR LAST COL 

SET PUNCH TERMINATOR 
STO PUNCH DATA IN BUFFER 
PCH A COLUMN 
INCREASE PCH ADDR 
LD NEXT PUNCH DATA 
CK FOR END OF TABLt 
RETURN IF NOT END 
RETURN TO START OF 
PUNCH DATA TABLE 



30F08870 

30F08880 

30F08890 

30F08900 

30F08910 

30F08920 

30F08930 

30F08940 

30F08950 

30F08960 

30F08970 

30F08980 

30F08990 

30F09000 

30F09010 

30F09020 

30F09030 

30F09040 

30F09050 

30F09060 

30F09070 

30F09080 

30F09090 

30F09100 

30F09110 

30F09120 

30F09130 

30F09140 

30F09150 

30F09160 

30F09170 

30F09180 

30F09190 

30F09200 

30F09210 

30F09220 

30F09230 

30F09240 

30F09250 

30F09260 

30F09270 

30F09280 

30F09290 

30F09300 

30F09310 

30F09320 

30F09330 

30F09340 

30F09350 

30F09360 

30F09370 

30F09380 

30F09390 

30F09400 

30F09410 

30F09420 

30F09430 

30F09440 

30F09450 

30F09460 

30F09470 

30F09480 

30F09490 

30F09500 

30F09510 

30F09520 

30F09530 

30F09540 
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PART NO. 
PAGE 



2191224 
8A 



0932 08D1 

0933 1 7401 0904 
0935 1 4C80 0911 



0937 0000 

0938 08D1 

0939 1000 

093A 1 0400 08A8 

093C 1 6700 08E4 

093E 1 6F00 05E6 

0940 1 4C80 0937 



READ COMMAND 
INCREASE RD ADDR 



CKRDR XIO READ 

MDX L READ,1 

BSC I INTRO 

* 

****************************##**********#*#*$ 

* INTRPT 4 SERVICE ROUTINE 

************ *#*={:*** ** *********** ************* 
* 

INTR4 DC *-* 

XIO SNRS4-1 

NOP 
* 

STO L DSW4 

LDX L3 RTRN 

STX L3 MLSCFC1 

BSC I INTR4 
* 
********************************************* 

* CHECK READY 
********************************************* 

* 



SENSE DSW 
USE FOR TRAP 

SAVE DSW BITS 

SET FOR RETURN 



0942 0000 




READY 


DC 




*-* 




0943 08C2 






XIO 




SENSE 


SENSE DSW 


0944 1 D400 


08A2 




STO 


L 


DSW 


STORE DSW 


0946 1 4C98 


0942 




BSC 


I 


READY, 6- 


NO BITS FOUND 


0948 1801 






SRA 




1 


REMOVE NRDY 


0949 1 4420 


0807 


* 
BOX 


BSI 


L 


ERR1,Z 


BR IF OTHER THAN NRDY 


0948 1011 




SLA 




17 




094C D011 






STO 




BCNT 


RESET BOX CNT 



094D 1 6500 0953 
094F 1 6D00 05E6 
0951 1 4C00 08DA 

0953 08B2 

0954 1 4C98 0942 
0956 1 7403 095E 

0958 70F4 

0959 6105 
095A 1 6700 09DF 
095C 400A 
0950 70ED 

095E 0000 



095F 1 OCOO 0784 

0961 6106 

0962 1 6700 09FF 

0964 4002 

0965 1 4400 05F8 



0967 0000 

0968 6907 

0969 6B09 

096A 4480 0163 
096C 1 0970 



LD REENTRY ADDRS 

SET MLSCF 

GO TO MONITOR 

SENSE DSW 
RETURN IF READY 



MESSAGE NUMBER 
NOT READY 
PRINT MESSAGE 



B0X1 LDX LI B0X2 

STX LI MLSCFG1 

BSC L WAIT4 
* 

B0X2 XIO SENSE 

BSC I READY, £- 

MDX L BCNT, 3 

MDX B0X1 
* 

NRDY LDX 1 5 

LDX L3 ANRDY 

BSI TYPE 

MDX BOX 
* 

BCNT DC *-* 

* 
********************************************* 

* FEED LAST CARD 
********************************************* 

* 

LSTCD XIO L FDACD-1 FEED COMMAND 

LDX 1 6 MESSAGE NUMBER 

LDX L3 ALCD LAST CARD 

BSI TYPE PRINT MESSAGE 

BSI L CNTRL GO TO NEXT ROUTINE 

* 

********************************************* 

* PRINT STATUS MESSAGE 

********************************************* 

* 

TYPE DC *-* 

STX 1 SMSG NEW MSG NUMBER 

STX 3 ALPHA UPDATE MESSAGE 

* 

BSI I LOG CALL ON LOG 

DC SMSG ADDR OF MSG 



30F09550 
30F09560 
30F09570 
30F09580 
30F09590 
30F09600 
30F09610 
30F09620 
30F09630 
30F09640 
30F09650 
30F09660 
30F09670 
30F09680 
30F09690 
30F09700 
30F09710 
30F09720 
30F09730 
30F09740 
30F09750 
30F09760 
30F09770 
30F09780 
30F09790 
3 OF 09 800 
30F09810 
30F09820 
30F09830 
30F09840 
30F09850 
30F09860 
30F09870 
30F09880 
30F09890 
30F09900 
30F09910 
30F09920 
30F09930 
30F09940 
30F09950 
30F09960 
30F09970 
30F09980 
30F09990 
30F 10000 
30F10010 
30F10020 
30F10030 
30F10040 
30F10050 
30F10060 
30F10070 
30F 10080 
30F10090 
30F10100 
30F10110 
30F10120 
30F10130 
30F10140 
30F10150 
30F10160 
30F10170 
30F10180 
30F10190 
30F10200 
30F10210 
30F10220 



09 60 





D006 




STO 


ALPHAS1 


096E 


1 


4C80 0967 


=£ 


BSC 


I TYPE 


0970 





0000 


SMSG 


DC 


*-* 


0971 





0000 




DC 


/oooo 


0972 





0001 




DC 


/0001 


0973 





0000 


ALPHA 


DC 


*-* 


0974 





0000 




DC 


*-* 


0975 





1442 


* 


DC 


/1442 








********************* 








* 




ALPHA M 








********************* 


0976 





1E3E 


ACNBK 


DC 


/1E3E 


0977 





6232 




DC 


/6232 


0978 





2176 




DC 


/2176 


0979 





529E 




DC 


/529E 


097A 





211A 




DC 


/211A 


097B 





5E3E 




DC 


/5E3E 


097C 





765A 




DC 


/765A 


097D 





FFFF 


* 


DC 


/FFFF 


097E 





923E 


AWAS 


DC 


/923E 


097F 





9A21 




DC 


/9A21 


0980 





219A 




DC 


/219A 


0981 





BC1A 




DC 


/BC1A 


0982 





FFFF 


* 


DC 


/FFFF 


0983 





923E 


ADWAS 


DC 


/923E 


0984 





9A21 




DC 


/9A21 


0985 





2121 




DC 


/2121 


0986 





9ABC 




DC 


/9ABC 


0987 





1A21 




DC 


/1A21 


0988 





2121 




DC 


/2121 


0989 





FFFF 


* 
ASOSW 


DC 


/FFFF 


098A 





2184 


DC 


/2184 


098 B 





9A9E 




DC 


/9A9E 


098C 





3E9E 




DC 


/3E9E 


098D 





221E 




DC 


/221E 


098E 





2132 




DC 


/2132 


098F 





9A92 




DC 


/9A92 


0990 





2136 




DC 


/2136 


0991 





6262 




DC 


/6262 


0992 





FFFF 


* 


DC 


/FFFF 


0993 





2184 


ABDSW 


DC 


/2184 


0994 





1AB2 




DC 


/1AB2 


0995 





9AA6 




DC 


/9AA6 


0996 





2132 




DC 


/2132 


099 7 





9A92 




DC 


/9A92 


0998 





2136 




DC 


/2136 


0999 





6262 




DC 


/6 26 2 


099A 





FFFF 


♦ 


DC 


/FFFF 


099 B 





2184 


ADSW4 


DC 


/2184 


099C 





5E36 




DC 


/5E36 


099D 





B6F0 




DC 


/B6F0 


099 E 





2132 




DC 


/2132 


099 F 





9A92 




DC 


/9A92 


09A0 





2136 




DC 


/2136 


09 A 1 





6262 




DC 


/6262 


09A2 





FFFF 


♦ 


DC 


/FFFF 


09A3 





329A 


ANINT 


DC 


/329A 


09A4 





9221 




DC 


/9221 



RETURN 

MESSAGE NUMBER 
HEX/DECIMAL SW 
DATA WORD ID 
ALPHA ADDRS 1 
ALPHA ADDRS 2 



CARD NOT BLANK 



WAS S/B 



WAS S/B 



-STATIC DSW ERR 



-BUSY DSW ERR 



-LEV4 DSW ERR 



DSW 



30F10230 
30F10240 
30F10250 
30F10260 
30F10270 
30F10280 
30F10290 
30F10300 
30F10310 
30F10320 
30F10330 
30F10340 
3OF1035O 
30F10360 
30F10370 
30F10380 
30F10390 
30F10400 
30F10410 
30F10420 
30F10430 
30F10440 
30F10450 
30F10460 
30F10470 
30F10480 
30F10490 
30F10500 
30F10510 
30F10520 
30F10530 
30F10540 
30F10550 
30F10560 
30F10570 
30F10580 
30F10590 
30F10600 
30F10610 
30F10620 
30F10630 
30F10640 
30F10650 
30F10660 
30F10670 
30F10680 
30F10690 
30F10700 
30F10710 
30F10720 
30F10730 
30F10740 
30F10750 
30F10760 
30F10770 
30F10780 
30F10790 
30F10800 
30F10810 
30F10820 
30F10830 
30F10840 
30F10850 
30F10860 
30F10870 
30F10880 
30F10890 
30F10900 
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09A5 





2176 


09A6 





5221 


09A7 





2276 


09A8 





9E62 


09A9 





569E 


09AA 





FFFF 



09AB 2184 
09AC 5E36 
09AD B6F0 
09AE FFFF 

09AF 2184 
09B0 5E36 
09B1 B6C4 
09B2 FFFF 



09B3 





2184 


09B4 





56B2 


09B5 





761E 


09B6 





2621 


09B7 





1E5A 


09B8 





FFFF 


09 B9 





2184 


09BA 





3662 


09BB 





6221 


09 BC 





1E5A 


09BD 





FFFF 


09BE 





2184 


09BF 





1E52 


09C0 





5E21 


09C1 





1E76 


09C2 





9E21 


09C3 





3662 


09C4 





FFFF 


09C5 





2121 


09C6 





1E52 


09C7 





5E21 


09C8 





2121 


09C9 





2184 


09CA 





323E 


09CB 





9E3E 


09CC 





2136 


09CD 





6262 


09CE 





FFFF 


09CF 





095E 


09U0 





3E9A 


09D1 





9E21 


09D2 





5256 


09D3 





8421 


09D4 





FFFF 


09D5 





6236 


0906 





3E32 


09D7 





FFFF 



09D8 56B2 

0909 761E 

090A 2600 

09UB FFFF 

09DC 1236 

09DD 3632 

09DE FFFF 



DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 



ACCNT DC 
DC 

DC 
DC 
DC 
DC 
DC 

ADATA DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



* 
ALV4 



ALVO 



* 
APCK 



AECK 



* 
ALOP 



* 
ARD 



* 
APCH 



AFD 



DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 

DC 
DC 
DC 
DC 

DC 
DC 
DC 



/2176 
/5221 
Z2276 
/9E62 
/569E 
/FFFF 

/2184 
/5E36 
/B6F0 
/FFFF 

/2184 
/5E36 
/B6C4 
/FFFF 

/2184 
/56B2 
/761E 
/2621 
/1E5A 
/FFFF 

/2184 
/3662 
/6221 
/1E5A 
/FFFF 

/2184 
/1E52 
/5E21 
/1E76 
/9E21 
/3662 
/FFFF 

/2121 
/1E52 
/5E21 
/2121 
/2184 
/323E 
/9E3E 
/2136 
/6262 
/FFFF 

/095E 
/3E9A 
/9E21 
Z5256 
/8421 
/FFFF 

Z6236 
/3E32 
/FFFF 

/56B2 
/761E 
/2600 
/FFFF 

/1236 
/3632 
/FFFF 



NO INTRPT 



-LEV4 



-LEVO 



PCH CK 



ERR CK 



COL CNT ER 



COL DATA ERR 



LAST OP- 



READ 



PUNCH 



FEED 



30F10910 

30F10920 

30F10930 

30F10940 

30F10950 

30F10960 

30F10970 

30F10980 

30F10990 

30F11000 

30F11010 

30F11020 

30F11030 

30F11040 

30F11050 

30F11060 

30F11070 

30F11080 

30F11090 

30F11100 

30F11110 

30F11120 

30F11130 

30F11140 

30F11150 

30F11160 

30F11170 

30F11180 

30F11190 

30F1120O 

30F11210 

30F11220 

30F11230 

30F11240 

30F11250 

30F11260 

30F11270 

30F11280 

30F11290 

30F11300 

30F11310 

30F11320 

30F11330 

30FH340 

30F11350 

30F11360 

30F11370 

30F11380 

30F11390 

30F11400 

30F11410 

30F11420 

30F11430 

30F11440 

30F11450 

30F11460 

30F11470 

30F11480 

30F114-90 

30F11500 

30F11510 

30F11520 

30F11530 

30F11540 

30F11550 

30F11560 

30F11570 

30F11580 



09DF 





7662 


09E0 





32A6 


09 El 





2184 


09E2 





5662 


09E3 





369A 


09E4 





9A21 


09E5 





FCFO 


09E6 





F0D8 


09E7 





219A 


09E8 





9E3E 


09E9 





629E 


09EA 





FFFF 


09EB 





5E32 


09EC 





2100 


09ED 





1A5E 


09EE 





3E76 


09EF 





5A9A 


09F0 





FFFF 


09F1 





5E32 


09F2 





213E 


09F3 





76A6 


09F4 





2156 


09F5 





3E9E 


09F6 





9E36 


09F7 





6276 


09F8 





2156 


09F9 





5EB2 


09FA 





9A21 


09FB 





1A5E 


09 FC 





3E76 


09FD 





5A9A 


09FE 





FFFF 


09FF 





5E3E 


OAOO 





9A9E 


0A01 





211E 


0A02 





3E62 


0A03 





3200 


0A04 





FFFF 


OA05 





2184 


0A06 





5E36 


0A07 





B6C4 


0A08 





2132 


0A09 





9A92 


OAOA 





2136 


OAOB 





6262 


OAOC 





FFFF 


OAOD 





5E32 


OAOE 





2112 


OAOF 





6252 


0A10 





7221 


0A11 





9A9E 


0A12 





5A21 


0A13 





D821 


0A14 





FFFF 


0A15 





9A36 


0A16 





9E21 


0A17 





563E 


0A18 





9E9E 


0A19 





2122 


0A1A 





7621 


0A1B 





9A92 



ANRDY DC 

DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

ALDBK DC 
DC 

DC 
DC 
DC 
DC 



* 
ANYP 



ALCD 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 



ADSWO DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 

ASTOH DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 

* 

ASETP DC 
DC 
DC 
DC 
DC 
DC 
DC 



/7662 
/32A6 
/2184 
/5662 
/369A 
/9A21 
/FCFO 
/F0D8 
/219A 
/9E3E 
/629E 
/FFFF 

/5E32 
/2100 
/1A5E 
/3E76 
/5A9A 
/FFFF 

/5E32 
/213E 
/76A6 
/2156 
/3E9E 
/9E36 
/6276 
/2156 
/5EB2 
/9A21 
/1A5E 
/3E76 
/5A9A 
/FFFF 

/5E3E 
/9A9E 
/2UE 
/3E62 
/3200 
/FFFF 

/2184 
/5E36 
/B6C4 
/2132 
/9A92 
/2136 
/6262 
/FFFF 

/5E32 
/2112 
/6252 
/7221 
/9A9E 
/5A21 
/D821 
/FFFF 

/9A36 
/9E21 
/563E 
/9E9E 
/2122 
/7621 
/9A92 



NRDY 



PRESS 1442 START 



LOAD BLANKS 



30F11590 
30F11600 
30FH610 
30F11620 
30F11630 
30F11640 
30F11650 
30F11660 
30F11670 
30F11680 
30F11690 
30F11700 
30F11710 
30F11720 
30F11730 
30F11740 
30F11750 
30F11760 
30F11770 
30F11780 
30F11790 
LD ANY PATTERN PLUS BLANKS 30F11800 

30FU810 
30F11820 
30F11830 
30F11840 
30F11850 
30F11860 
30F11870 
30F11880 
30F11890 
30F11900 
30F11910 
30F11920 
30F11930 
30F11940 
30F11950 
30F11960 
30F11970 
30F11980 
30F11990 
30F12000 
30F12010 
30F12020 
30F12030 
30F12040 
30F12050 
30F12060 
30F12070 
30F12080 
30F12090 
30F12100 
30F12110 
30F12120 
30F12130 
30F12140 
30F12150 
30F12160 
30F12170 
30F12180 
30F12190 
30F12200 
30F12210 
30F12220 
30F12230 
30F12240 
30F12250 
30F12260 



LAST CARD 



-LEVO DSW ERR 



LOAD FROM STK 2 



SET 

T 

PA 

TT 

I 
N 
SW 



PATT IN SW 0-11 



iATE 
C NO. 



02JAN66 
415490 



01MAY66 
415490B 



15N0V66 
419643 



PROG ID 
PAGE 



3 0F-0 
9 



DATE 


02JAN66 


01MAY66 


15N0V66 


EC NO. 


415490 


415490B 


419643 



PROG ID 
PAGE 



030F-0 
9A 
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0A1C 





21C4 


0A1D 





84FC 


0A1E 





FC21 


0A1F 





9E26 


0A20 





3676 


0A21 





219E 


0A22 





7621 


0A23 





9A92 


0A24 





21FC 


0A25 





D821 


0A26 





FFFF 


OA27 





5262 


0A28 





2116 


0A29 





3E76 


0A2A 





1621 


0A2B 





56B2 


0A2C 





761E 


0A2D 





2636 


0A2E 





3221 


0A2F 





1E3E 


0A30 





6232 


0A31 





9A0O 


OA3 2 





FFFF 



0A33 





8010 


0A34 





4020 


0A35 





2040 


0A36 





1080 


0A37 





0900 


0A38 





0600 


0A39 





0600 


0A3A 





0900 


0A3B 





1080 


0A3C 





2040 


0A3D 





4020 


0A3E 





8010 


0A3F 





FFF7 


0A40 





8880 


0A41 





CCCO 


0A42 





EEEO 


0A43 





FFFO 


0A44 





7777 


0A45 





3333 


0A46 





1111 


0A47 





FFF7 


0A48 





AOOO 


0A49 





9000 


0A4A 





8800 


0A4B 





8400 


0A4C 





8200 


0A4D 





8100 


0A4E 





8080 


0A4F 





8040 


0A50 





8020 


0A51 





8010 


OA52 





5000 


0A53 





4800 


0A54 





4400 


0A55 





4200 


0A56 





4100 


0A57 





4080 


0A58 





4040 


0A59 





4020 



DC 


/21C4 


DC 


/84FC 


DC 


/FC21 


DC 


/9E26 


DC 


/3676 


DC 


/219E 


DC 


/7621 


DC 


/9A92 


DC 


/21FC 


DC 


/D821 


DC 


/FFFF 


* 




ALACD DC 


/5262 


DC 


/2116 


DC 


/3E76 


DC 


/1621 


DC 


/56B2 


DC 


/761E 


DC 


/2636 


DC 


/3221 


DC 


/1E3E 


DC 


/6232 


DC 


/9A00 


DC 


/FFFF 


**#*****#***##**$**: 


* 


PUNCH 


*#*****************; 

£ 


WAREA DC 


/8010 


DC 


/4020 


DC 


/2040 


DC 


/1080 


DC 


/0900 


DC 


/0600 


DC 


/0600 


DC 


/0900 


DC 


/1080 


DC 


/2040 


DC 


/4020 


DC 


/8010 


DC 


/FFF7 


DC 


/8880 


DC 


/CCCO 


DC 


/EEEO 


DC 


/FFFO 


DC 


/mi 


DC 


/3333 


DC 


/llll 


DC 


/FFF7 


DC 


/AOOO 


DC 


/9000 


DC 


/8800 


DC 


/8400 


DC 


/8200 


DC 


/8100 


DC 


/8080 


DC 


/8040 


DC 


/8020 


DC 


/8010 


DC 


/5 000 


DC 


/4800 


DC 


/4400 


DC 


/4200 


DC 


/4100 


DC 


/4080 


DC 


/4040 


DC 


/4020 





-1 
1 

THEN TN SW 12 
EN 

T 
N 
SW 

1 
2 



OR GANG PUNCHED CARDS 



COLUMN 1 



COL 21 
ALPHA RIPPLE 

COL 26 



30F12270 
30F12280 
30F12290 
30F12300 
30F12310 
30F12320 
30F12330 
30F12340 
30F12350 
30F12360 
30F12370 
30F12380 
30F12390 
30F12400 
30F12410 
30F12420 
30F12430 
30F12440 
30F12450 
30F12460 
30F12470 
30F12480 
30F12490 
30F12500 
30F12510 
30F12520 
30F12530 
30F12540 
30F12550 
30F12560 
30F12570 
30F12580 
30F12590 
30F12600 
30F12610 
30F12620 
30F12630 
30F12640 
30F12650 
30F12660 
30F12670 
30F12680 
30F12690 
30F12700 
30F12710 
30F12720 
30F12730 
30F12740 
30F12750 
30F12760 
30F12770 
30F12780 
30F12790 
30F12800 
30F128X0 
30F12820 
30F12830 
30F12840 
30F12850 
30F12860 
30F12870 
30F12880 
30F12890 
30F12900 
30F12910 
30F12920 
30F12930 
30F12940 



0A5A 





4010 




DC 


/4010 


0A5B 





3000 




DC 


/3000 


0A5C 





2800 




DC 


/2800 


0A5D 





2400 




DC 


/2400 


0A5E 





2200 




DC 


/2200 


0A5F 





2100 




DC 


/2100 


0A60 





2080 




DC 


/2080 


0A61 





2040 




DC 


/2040 


0A62 





2020 




DC 


/2020 


0A63 





2010 




DC 


/2010 


0A64 





0000 




DC 


/OOOO 


0A65 





FCOO 




DC 


/FCOO 


0A66 





03F0 




DC 


/03F0 


0A67 





FCOO 




DC 


/FCOO 


0A68 





03F0 




DC 


/03F0 


0A69 





0000 




DC 


/OOOO 


0A6A 





8887 




DC 


/8887 


0A6B 





4444 




DC 


/4444 


0A6C 





2222 




DC 


/2222 


0A6D 





1111 




DC 


/llll 


0A6E 





0007 




DC 


/0007 


0A6F 





8880 




DC 


/8880 


OA70 





CCC4 




DC 


/CCC4 


0A71 





AAA2 




DC 


/AAA2 


0A72 





9991 




DC 


/9991 


OA73 





4444 




DC 


/4444 


0A74 





6666 




DC 


/6666 


OA75 





5555 




DC 


/5555 


0A76 





2222 




DC 


/2222 


0A77 





3333 




DC 


/3333 


0A78 





1111 




DC 


/llll 


0A79 





0005 




DC 


/0005 


0A7A 





0006 




DC 


/0006 


0A7B 





FFF7 




DC 


/FFF7 


0A7C 





FFF7 




DC 


/FFF7 


0A7D 





FFF7 




DC 


/FFF7 


0A7E 





FFFO 




DC 


/FFFO 


0A7F 





FFFO 




DC 


/FFFO 


0A80 





FFFO 




DC 


/FFFO 


0A81 





FFFO 




DC 


/FFFO 


0A82 





0000 




DC 


/OOOO 


OA83 





FFFF 


3 


DC 


/FFFF 








********##*###**:*#:(>:*$*$# 








* 




READ AREA 








*******#****$*********** 


0A84 




0050 


RAREA 


BSS 


80 


0AD4 




0051 


RAREB 

* 


BSS 


81 


0B26 




05E8 


END 


BGIN 


NO STATEMENTS 


FLAGGED IN 


THE 


ABOVE ASSEMBLY 



COL 40 WAREA639 



CHECK PCH TERM 



COLUMN 80 
TERMINATOR 



30F12950 
30F12960 
30F12970 
30F12980 
30F12990 
30F13000 
30F13010 
30F13020 
30F13030 
30F13040 
30F13050 
30F13060 
30F13070 
30F13080 
30F13090 
30F13100 
30 F 13 110 
30F13120 
30F13130 
30F13140 
30F13150 
30F13160 
30F13170 
30F13180 
30F13190 
30F13200 
30F13210 
30F13220 
30F13230 
30F13240 
30F13250 
30F13260 
30F13270 
30F13280 
30F13290 
30F13300 
30F13310 
30F13320 
30F13330 
30F13340 
30F13350 
30F13360 
30F13370 
30F13380 
30F13390 
30F13400 
30F13410 
30F13420 
30F13430 
30F13440 
30F13450 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
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PROG ID 
PAGE 



030F-0 
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030F-0 
10A 
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C R 

NAME 

ABDSW 

ACCNT 

ACNBK 

ADATA 

ADSWO 

ADSW4 

AOWAS 

AECK 

AFD 

ALACD 

ALCD 

ALDBK 

ALOP 

ALPHA 

ALVO 

ALV4 

AMSG 

ANINT 

ANRDY 

ANYP 

APCH 

APCK 

ARD 

ASDSW 

ASETP 

ASTOH 

AWAS 

BCIMT 

BDSW 

BEGIN 

BGIN 

BLANK 

BLK1 

BOX 

B0X1 

B0X2 

CKKDR 

CLEAR 

CNTRL 

CN10 

CN20 

CN30 

COL 

COLCT 

COMPR 

C0M1 

COM2 

COM3 

COM4 

C0M5 

DADRS 

DATA 

DFACT 

DLYCT 

DSW 

DSWSB 

DSWO 

DSW4 

EBITS 

END 

ERLCK 

ERKOR 

ERKO 

ERK1 



S S 
VALUE 
0993 
09BE 
0976 
09C5 
0A05 
099B 
0983 
09B9 
09DC 
OA27 
09FF 
09EB 
09CF 
0973 
09AF 
09AB 
08A0 
09A3 
09DF 
09F1 
09D8 
09B3 
0905 
098A 
0A15 
OAOD 
097E 
095E 
08A4 
0160 
05E8 
074A 
0753 
094B 
094D 
0953 
0932 
0688 
05F8 
05FC 
0603 
0609 
08AE 
08AC 

07A3 
07AE 
07C6 
07CF 
07E2 
07E7 
0784 

08AA 
06E3 
06E4 
08A2 
08A7 
08A6 
08A8 
090F 
0164 
0166 
0162 
07FE 
0807 



REFERENCE 
REFERENCES 
0873 
087F 
086E 
0881 
0877 
0879 
087E 
087D 
0760 
06AC 
0962 

0626, 0659, 06B0.06EB 
0899 

06AE,0969,096D 
0883 
0875 
0889 

0874,0882 
095A 

071F,0732 
0798 
087B 
0776 
0871 
06F2 

0630, 066E, 0699 

0870, 0872, 0876, 0878, 087 A, 087C, 0880 
094C0956 

08B5,08C6,08C7,08E5,08E6 
05E8 
0B26 

062 A, 0650,0727, 0759, 0805 
0758 
095D 
0958 
094D 
091A 
068B 
05F7,073B,08E0,0965 



05FA 
05FE 
07AE 
0751 
08F9 
064F 
07CE 
07C1 
07E0 
07CA 
07D1 
0623 
07A8 
07B4 
06B9 
06C4 
083F 
081D 
081F 
082B 
08B8 
0607 
07F3 
088D 
0755 
0813 



,07C6,07D5,07DC 

,0765, 0770, 078E, 0793, 07C8,07DE,08B7,08CC,08CF,08F2,08F5,08F8 

,0918 

, 0679, 06A6, 0609, 07E5 

,07EF 



,063A,065 6,066B,06 8E,0696,06DO,06E8,071C,07 3E,0740,0747,0796 

,07D3, 0852, 0853 

,06C3,06DD 

,06CB 

,0944 

,08 36,08BO,0913,0916 

,08 2C,082D,08CB,08ED,08FC,09 3A 
,08E9, 0914, 0915 



,0891 
,0949 



IATE 
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ERR1A 

ERR10 

ERR2 

ERR4 

ERR5 

ERR5R 

ERR5S 

ERR6 

ERR7 

ERR8 

ERR9 

ERR9A 

ETYPE 

ETYP1 

ETYP2 

FOACO 

FEED 

FLIP 

FLIPS 

ILO 

IL1 

IL2 

IL3 

IL4 

INCR 

INTRO 

INTR4 

KEFFE 

KEFFF 

K0008 

K0800 

LOCK 

LOG 

LOGBY 

LOOP 

LRTN 

LSTCD 

M 

MLSCF 

MSGO 

MSG1 

MSG10 

MSG2 

MSG3 

MSG4 

MSG5 

MSG6 

MSG7 

MSG8 

MSG9 

NCOL 

NRDY 

NRTN 

OP 

OPMSW 

PBUF 

PCHST 

PDATA 

PID 

PNCHR 

PNCH1 

PUNCH 

RAD 

RAREA 

RAREB 
RDRST 
READ 



0811 
0867 
0815 
081C 
0827 
0834 
0885 
0836 
0845 
0849 
0851 
0860 
0886 
0891 
0896 
0785 
075B 
067F 
078C 
017A 
018A 
019A 
OlAA 
01BA 
07BA 
0911 
0937 
090D 
090E 
0908 
090C 
07F0 
0163 
0167 
0894 
0620 
095F 
0884 
05E5 
086E 
0870 
0882 
0872 
0874 
0876 
0878 
087A 
087C 
087E 
0880 
078A 
0959 
061D 
089A 
0890 
090A 
0789 
0786 
05DC 
078D 
0790 
0902 
05DE 
0A84 

0AD4 
0787 
0904 



080A 

086C 



,08D0,08F6 

,08C8,08E7 

,08EB 

,08F0 

,0848 

,0812,0828 



S083D 
: ,08FA 
>, 0709,0865 



r ,095F 
>,076A 



081A, 

0825, 

0834, 

0844, 

0808, 

082F 

0837, 

084F, 

07B8, 

085A 

0803, 08 10, 08 19, 0824, 0833, 0843, 0847, 084E, 0860,0868, 0896, 8D 5 

088C 

088F 

0767, 

0635, 

0685 

06A4,0773,07CF 

05EF 



05F5 

07A7,07EC 

05ED, 092 A, 0930, 0935 

05F3,0940 

08EF 

08EA 

0921 

08EE 

0631, 0664, 06DB,072E,07F6, 07 FC 

096A 

0612,062C»065F,06BD,0729,074E,07 5E,07F8,07FA 

0616 

08FE 

05F1,07AB,07E3, 0858,0858 

060E,06C7,06FE,08BC,08BF,0808,09 3E,094F 

0800 

0800 

086A 

0818 

08D4 

0823 

0832 

0842 

0846 

084D 

085F 

0795, 07A4,07CC,07EE, 091 E 

0617 

0762, 0778, 079A 

0801,080E,088A,089 5,08B9 

0902,0922 

079E 

0797,07A9,07BO,07BA,07BE,07C5,07E9,09 1C,09 24,0926,09 2E 
05EA 

062 F, 0662, 069 1,07 10, 07 2C, 07 A 1 

0923 

060D 

0644, 0648, 0672, 067F , 06 8 1 ,0688 , 068C , 0690 , 0602 , 06F6 , 707 , 07 14 , 7 1 A 

072 3,07B6,07D7,0 7E7,0904 

06B4,06CE,074B,0753 

077C 

7 6D , 08 39 . 08 3 B , 09 3 2 , (]<■) '-■ 
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READR 

READY 

RID 

RIDCK 

RLCF 

ROTAT 

RUKB 

ROTY 

RTNOM 

RTNSH 

RTKN 

RTRN1 

RTTBL 

RT1 

RTU 

RT2 

RT21 

RT22 

RT23 

RT3 

RT31 

RT4 

RT41 

RT42 

RT5 

RT51 

RTb 

RT61 

RTb2 

RT63 

RT64 

RT65 

RT 7 

RT7SW 

RT M 

RT72 

RT73 

RT74 

RT8 

RT81 

RT9 

RX1 

SENSE 

SMSG 

SNRSO 

SNRS4 

SNSWS 

STACK 

START 

STRT 

SVKB 

SWU 

SHI 

SH2 

SU3 

TABLE 

TERM 

TYPE 

T6CNT 

HAIT 

HAITI 

HAIT2 

HAIT3 

HAIT4 

HAREA 

HAT3A 

HCNT 

ZERO 



076C 

0942 

05DD 

0616 

0168 

073D 

01BC 

01BB 

0617 

0165 

08E4 

08FC 

0618 

0621 

062A 

0638 

0641 

0644 

0648 

0654 

0650 

0669 

0672 

067D 

0694 

0690 

06AB 

06B8 

06BF 

06C5 

06CB 

06CE 

06E6 

0719 

06F6 

0702 

0707 

070B 

071A 

0727 

0731 

0861 

0906 

0970 

0909 

090B 

0782 

078B 

0161 

05EB 

01BD 

05DF 

05E0 

05E1 

05E2 

0890 

0788 

0967 

06E5 

08AF 

08BA 

08BF 

08C3 

08DA 

OA33 

08D2 

0910 

08A3 



064A,0 674,069F,06B6,06D4,07 2 5,07 38,07 5 0,077F 
06EF,075C, 774, 0790, 0946, 09 54 
05EC05FC, 0602, 0603, 0605, 06 09, 080E 
05FD 

063 3, 065 1,0666,0678, 06 A8, 07 43, 0748 



0606 

060F 

093C 

08F3 

0608,0616,0617 

0618 

0637 

0619 

0653 

0647 

064C 

061A 

0668 

061B 

0676,0693 

061C 

06A1,06AA 

061D 

06E2 

06E1 

06C0 

06C5 

06D6 

061E 

06F8, 0702, 0705, 07 13, 0782 

06FC0716 

06FA 

070A 

0718 

061F 

0730 

0620 

0854 

08B4,08CA,0943,0953 

0968, 09 6C 

0912 

0938 

06F6,0712 

0792,0863 

0614,08C1,08DC,08E2 

05E3.05E4 

07F1 

05F9, 0601, 0739, 08DA 

06BF.070B 

0887,0888,0893 

0642, 0742, 07C0, 0928 

0628, 063F,065B, 0670, 069B ,06B2, 06ED, 06F4, 072 1,07 34, 095C, 0964, 096E 

06BC06DF 

0768, 0770, 079F, 0806, 0900 

08C5 

08BA 

06C9, 0700, 08BE, 0951 

062 1,063 8, 0654, 0669, 0694, 07 36, 0745, 07C3,092C 
08CD 

08B3.08C3 
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TABLE OF CONTENTS 

PARAGRAPH PAGE 

1. PURPOSE 1A 

2. PREREQUISITES. 1A 

2.1 PROGRAM PREREQUISITES 

2.2 MODEL NUMBER AND CORE STORAGE SPEED 

OPERATING PROCEDURE 2 



3. 



3.1 PROGRAM LOADING 

3.2 PROGRAM OPERATION 

3.2.1 PROGRAM CONTROL - FUNCTION 

3.2.2 ROUTINE SELECTION - FUNCTION 1 

3.2.3 OPTIONAL CONTROL 

3.3 PROGRAM HALTS 

3.3.1 NORMAL HALTS 

3.3.2 ERROR HALTS 

3.4 PROGRAM TERMINATION 

3.5 RESTART 



4. PRINTOUTS. 



4.1 
4.2 



STATUS MESSAGES 
ERROR MESSAGES 



COMMENTS 



3A 



6A 



5.1 TEST PROCEDURE 

5.1.1 TEST ORGANIZATION 

5.1.2 ERROR CHECKING 

5.2 ROUTINE DESCRIPTION 

5.2.1 TEST SEQUENCE CONTROL ROUTINE - CNTRL 

5.2.2 NORMAL TEST ROUTINE 

5.2.3 OPTIONAL TEST ROUTINE 

5.2.4 TEST SUBROUTINES 

5.2.5 ERROR CONTROL ROUTINE 

5.2.6 INTERRUPT ROUTINES 



1. PURPOSE 

THE 1442 TIMING TEST IS DESIGNED TO CHECK THE FOLLOWING CONDITIONS. 

A. READ AND PUNCH COLUMN TIMING TOLERANCES. 

B. PUNCH COLUMN DELAY TOLERANCE. 

C. PROPER DSW RESPONSES. 

D. READ REGISTRATION OR COMPARE ERRORS. 

E. PUNCH ECHO CHECK ERRORS. 

F. CORRECT COLUMN INTERRUPT COUNTS. 

THE PROGRAM WILL NOT CHECK THE FOLLOWING ITEMS WHICH MUST BE CHECKED 
BY SCOPING WHILE PROGRAM IS RUNNING. 

A. READ CELL DURATION 

B. EMITTER TIMING 

C. READ OR PUNCH SINGLE SHOT TIMING (LOGIC PAGE ADOOO ) 

2. PREREQUISTIES 

2.i*** PROGRAM PREREQUISITES 

1130 DIAGNOSTIC MONITOR II 

THIS TEST MAY NOT BE RUN IN OVERLAP WITH ANY OTHER PROGRAM. 

2.2*** EQUIPMENT PREREQUISITES 

1. 1131 CPU WITH PROGRAM LOAD FROM CARD OR PAPER TAPE READER. 

2. 1442 MOD 5 t 6, OR 7. 

2.3*** MODEL NUMBER 

THE 1442 MODEL NUMBER MUST BE KNOWN IN ORDER TO USE THIS PROGRAM. 
THIS DATA MAY BE ENTERED VIA THE BIT SWITCHES AS OUTLINED IN SECTION 
3.1 OR THIS DATA MAY BE ENTERED VIA A PATCH CARD AS FOLLOWS 



COL 1-10 +05E1 OOOM 

COL 11 - 19 BLANK 

COL 20 - 35 1442 MOD M 

WHERE M = MOD NUMBER 5» 6, OR 7 



6. APPENDIX . 
PUNCH OUTS 



NUTE 



DO NOT RUN THIS PROGRAM IN OVERLAP. 



DATE 


02JAN66 


01MAY66 


15N0V66 


15JUN67 


15FEB68 


010CT68 


EC NO. 


415490 


415490B 


419643 


420317 


420403 


571005 
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3. OPERATING PROCEDURE 

3.1*** PROGRAM LOADING 

STANDARD MONITOR LOADING PROCEDURES APPLY 

THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR 

DETAILS. 

1. SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEFT MARGIN. 

2. SET BIT SWITCH 15 OFF - LOAD AND GO 

ON - TO HALT AFTER LOADING 

IF HALTED AFTER LOADING, SELECT PROGRAM 
OPTIONS THEN TURN OFF HALT SWITCH OR 
FOLLOW NORMAL RESTART PROCEDURE 
(SECTION 3.5). 

3. LOAD DIAGNOSTIC MONITOR AND THIS PROGRAM. 

4. IF MODEL NUMBER CARD IS NOT IN DECK, THE MODEL NUMBER MUST BE 
ENTERED BEFORE THE PROGRAM WILL RUN. THE MODEL NUMBER CARD IS 
THE PATCH CARD WHICH SETS THE MODEL NUMBER (SEE 2.3 ** ) 

A. SET SWITCHES TO 810M WHERE M EQUALS THE MODEL NUMBERf ( 5, 6, OR 7 

B. PRESS THE INTERRUPT REQUEST KEY. 

5. SELECT PROGRAM OPTIONS, IF DESIRED. 

****** 

3.2*** PROGRAM OPERATION. 

STANDARD MONITOR OPERATING PROCEDURES APPLY. 

THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR 

DETAILS. 

NUTE - DO NOT RUN THIS PROGRAM IN OVERLAP 

3.2.1 PROGRAM CONTROL OPTIONS - FUNCTION 



1. 

2. 



SET SWITCHES 0-7 TO 01. 

SET SWITCHES 8-15 AS DESIRED. 



SW 



FUNCTION 



8 RESTART 

9 PRINT ROUTINE START MESSAGE AND AVG INTERRUPT TIME IN 
RTNS 1+2 

10 LOCK ON FUNCTION (RTN 1 ONLY, PUNCH FNC ONLY) 

11 LOOP PROGRAM 

12 LOOP ON ERROR 

13 BYPASS ERROR PRINTOUT 

14 HALT ON ERROR 

15 HALT 



3. 



PRESS INT REQ KEY ON CONSOLE. 

** 
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3.2.2 ROUTINE SELECTION 



FUNCTION 1 



THE SELECTED ROUTINE WILL LOOP UNTIL A NEW ROUTINE IS SELECTED 
OR ROUTINE SELECTION IS RESET. 

1. TO SET ROUTINE SELECTION 

A. SET SWITCHES 0-7 TO 41. 



B, 



SET ROUTINE NUMBER IN SWITCHES 12-15. 



RTN 



DESCRIPTION 



2 

3 
4 



DELAY PUNCH + CHECK COL 

INTR TIME 
READ + CHECK COL INTRPT TIME. 
PUNCH COL INTRPT TIME GRAPH . 
READ COL INTRPT TIME GRAPH . 



NORMAL ROUTINES- 

THE PROGRAM STARTS WITH 
ROUTINE 1, RUNS EACH 
ROUTINE IN SEQUENCE 

THEN TERMINATES AFTER 

ROUTINE 4. 



MODIFY PUNCH DATA 



OPTIONAL ROUTINES- 
THESE ROUTINES KUN 
ONLY IF SELECTED. 



* = REFER TO SECTION 3.2.3 FOR SPECIAL INSTRUCTIONS. 

C. PRESS INT REQ KEY ON CONSOLE. 

2. TO RESET ROUTINE SELECTION, SET AS IF SELECTING ROUTINE ZERU. 

** 

3.2.3 OTHER OPTION CONTROL SELECTION 

1. SPECIFY PUNCH DELAY (PUNCH DELAY — SEE NOTE 5.2.2 RTN 1) 

THE PUNCH DELAY IN ROUTINE 1 CAN BE CONTROLLED BY A SWITCH 
ENTRY WITH THE SWITCHES SET TO 81XX WHERE OX CAN BE ANY HEX NO. 
FROM 1 TO F (NEVER 0). X REPRESENTS THE PUNCH DELAY INCREMENT 
(38 USEC TIMES ANY HEX NO. FROM 1 TO F). THE PUNCH DELAY INCRE- 
MENTS IS ADDED TO THE MINIMUM PUNCH DELAY OF 219 USEC. 

2. GRAPH SCALE FACTOR 

IF NO GRAPH IS PUNCHED BY ROUTINE 3 OR 4 I T IS PROBABLE THAT 

THE READER OR PUNCH TIMING IS SO FAR OFF THAT THE GRAPH DOES 

NOT PUNCH ON THE CARD. (SEE NOTE 5.2.2 RTN 3) THE GRAPH SCALE IS 

NORMALLY 38 USEC PER CARD ROW. THIS SCALE FACTOR CAN BE INCREASED 

BY A SWITCH ENTRY WITH THE SWITCHES SET TO C10X WHERE THE NEW 

SCALE IS EQUAL TO 38 USEC TIMES X PER CARD ROW. THIS WILL ALLOW 

YOU TO DETERMINE HOW BAD THE TIMING IS. 

3. MODIFY PUNCH DATA 

ROUTINE 5 WILL READ IN ONE CARD AND REPLACE THE PUNCH 
DATA TABLE WITH THE DATA PATTERN PUNCHED IN THAT CARD. 
THE PROGRAM WILL THEN RESTART FROM ROUTINE 1. 

****** 
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3.3*** PROGRAM HALTS 
3.3.1 NORMAL HALTS 



.HALT NO. 
.(B REG). 


DESCRIPTION 


RESTART 
ACTION 


. 3001 

. 3002 


PROGRAM STOP OR ADDRESS STOP 
1 HALT ON ERROR 


PRESS START 

DISPLAY MODE-PRESS START. 
RUN MODE - PRESS START . 



3.4*** PROGRAM TERMINATION 

IF LOOP PROGRAM HAS NOT BEEN SPECIFIED THE PROGRAM WILL TERMINATE 

AT THE END OF ROUTINE 4. ROUTINE 5 WILL ONLY RUN IF 

SELECTED. 

IF ANY ROUTINE IS SELECTED THAT ROUTINE WILL LOOP AND WILL NOT 
TERMINATE. 

****** 



3.5*** 



RESTART 



** 



3.3.2 ERROR HALTS 



.HALT NO. 


DESCRIPTION 


RESTART 


.(B REG) . 




ACTION 


. 30F1 , 


CHECK SUM ERROR ON FIRST 


RELOAD 


. 30F2 . 


READER DSW ERROR WHEN 
LOADING LOADER 


RELOAD 


. 30F3 . 


CARD 2 OF LOADER DID NOT 
LOAD 


RELOAD 


. 30F4 . 


CAN NOT CLEAR CORE - DUE TO 
ERROR IN ADDRESSING UPPER 
CORE. 




*. 30F5 


READER CHECK WHEN LOADING 


NPRO THEN PLACE CARDS 




MONITOR OR TEST PROGRAM 


RUN OUT IN FRONT OF 
REMAINING DECK AND PRESS. 
START. 


. 30 F6 


MONITOR DID NOT LOAD 


RELOAD 


. 30 F7 


CHECK SUM WHEN LOADING 
MONITOR 


RELOAD 


. 30F8 


READER NOT READY 


MAKE READER READY 


. 30F9 


'. INVALID INTERRUPT WHICH WILL 
NOT RESET 


PRESS RESET AND START 


. 30 FA 


CONSOLE PRINTER HANG UP - 


FIX THE CONSOLE PRINTER . 




BUSY WILL NOT GO OFF 


OR NOP THIS WAIT 



1. 

2. 
3. 
4. 

4. PRINTOUTS 



01. 



SET SWITCHES 0-7 TO 
TURN ON SWITCH 8. 

SET DESIRED CONTROL IN SWITCHES 9-14. 
PRESS INTERRUPT REQUEST KEY. 
********** 



ALL PRINTOUTS ARE IN THE STANDARD FORMAT. 



APPNN OORR AAAA 

OR 

EPPNN OORR AAAA 

WHERE 



(MESSAGE) 

(MESSAGE) 

A IDENTIFIES STATUS MESSAGES 
E IDENTIFIES ERROR MESSAGES 
PP IS THE PID OF THE PROGRAM CAUSING THE MESSAGE 

THIS WILL BE EITHER 00 FOR MESSAGES 
ORIGINATED BY THE MONITOR OR 

2F FOR MESSAGES ORIGINATED BY 

THIS PROGRAM 

NN IS THE MESSAGE SEQUENCE NUMBER 

RR IS THE ROUTINE NUMBER 

AAAA IS THE ADDRESS OF THE ROUTINE 

MESSAGE IS ANY VARIABLE INFORMATION 



4.1*** 
AOOOO 



STATUS MESSAGES 



NUM PID ADRS RELF 
XXXX XXXX XXXX XXXX 



LD 



THIS MESSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM 
(EXCEPT MONITOR), THE MESSAGE GIVES THE LOAD SEQUENCE NUMBER, 
THE PROGRAM ID, THE ADDRESS INTO WHICH THE PROGRAM WAS LOADED, 
AND THE RELOCATION FACTOR. 



A0001 



****** 



SWS PID 
XXXX XXXX 

THIS MESSAGE IS PRINTED EACH TIME A VALID SWITCH ENTRY IS READ 
BY THE MONITOR. THE MESSAGE CONTAINS THE SWITCH SETTING READ 
TOGETHER WITH THE PROGRAM ID OF THE PROGRAM INTO WHICH THE 
CONTENTS OF SWITCHES 8-15 WERE STORED. IF THE SWITCH ENTRY 
CALLED FOR HALT OF ANY PROGRAM, THE WORD HALT WILL FOLLOW THE 
MESSAGE. 
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A2F00 OOOR AAAA 



4.2*** 



ROUTINE START MESSAGE - IF SWITCH 9, FUNCTION 0, IS TURNED ON, 
THIS MESSAGE WILL BE PRINTED BEFORE THE START OF EACH ROUTINE. 
R IS THE NUMBER OF THE NEXT ROUTINE AND AAAA IS THE STARTING 
ADDRESS. 



A2F01 



ENTER MOD NUMBER 

THIS MESSAGE REQUESTS THAT THE 1442 MOD NUMBER 

BE ENTERED INTO THE PROGRAM. TO DO THIS, SET THE BIT SWITCHES TO 
810M WHERE M = MOD NUMBER 



A2F02 OOOR AAAA LOAD BLANKS 

LOAD THE 1442 HOPPER WITH BLANK CARDS THEN PRESS 1442 START. 



A2F03 OOOR AAAA 



LOAD PCHED CARDS 



LOAD THE CARDS PUNCHED BY ROUTINE 1 INTO 1442 HOPPER. THIS DECK 
WAS PUNCHED WITH A ROTATING PATTERN. IT MUST BE LOADED IN THE 
SAME ORDER AS PUNCHED. THERE MUST BE NO CARDS MISSING FROM THE 
DECK. 



A2F04 OOOR AAAA 



LAST CARD 



THE LAST CARD INDICATOR WAS ON AT THE COMPLETION OF THE LAST 1442 
CONTROL OPERATION. A FEED COMMAND WAS GIVEN TO RUN OUT THE LAST 
CARD. THE ROUTINE WILL THEN TERMINATE. IF NO ROUTINE HAS BEEN 
SELECTED, THE PROGRAM WILL ADVANCE TO THE NEXT ROUTINE. IF A 
ROUTINE HAS BEEN SELECTED, THE PROGRAM WILL RESTART THAT ROUTINE. 



E0001 



A2F05 OOOR AAAA 



NRDY - PRESS 1442 START 



THIS MESSAGE WILL BE PRINTED IF THE 1442 IS NOT READY FOR ANY REASON. 
THE PROGRAM WILL LOOP WAITING FOR READY. TO CONTINUE, CLEAR ANY 
ERROR CONDITIONS AND MAKE THE 1442 READY. 



A2F06 0001 AAAA 



PUNCH DELAY - X 
XXXXX 



E0003 



E0004 



ROUTINE 1 VARIES THE TIME BETWEEN RECEIVING THE PUNCH RESPONSE AND 
ISSUING THE PUNCH COMMAND. THE DELAY STARTS AT MAXIMUM (333 USEC, 
INCREMENT 4) REDUCED IN STEPS TO MINIMUM (219 USEC, INCREMENT OF ONE). 
THIS MESSAGE IDENTIFIES THE DELAY FOR THE NEXT 80 CARDS. X = THE DELA 
INCREMENT AND XXXX EQUALS THE DELAY IN USEC. 



A2F07 OOOR AAAA 



AVG COL INTRPT TIME 
XXXXX YYYYY 



THIS MESSAGE IS PRINTED IN ROUTINES 1 AND 2 AFTER 80 CARDS HAVE BEEN 
READ OR PUNCHED, OR WHEN THE ROUTINE TERMINATES. 

XXXXX = AVERAGE TIME IN USEC BETWEEN COLUMN INTERRUPTS 

FOR ALL CARDS READ OR PUNCHED SINCE THIS AVERAGE 
MESSAGE WAS LAST PRINTED. 

YYYYY = NORMAL AVERAGE TIME IN USEC. 



ERROR MESSAGES 

THE DSW IS CHECKED FOR ABSOLUTE CORRECTNESS AT ALL TIMES. IF AN 
ERROR IS DETECTED ONE OF THE MESSAGES BELOW WILL INDICATE THE 
PROBLEM. IT IS LEFT TO THE OPERATOR TO ANALYZE THE DSW FOR THE 
SPECIFIC PROBLEM AREA. 



* THE 1442 DSW 



^ %■ ^r ^ ^ *i* *& -r -£ -i : ^t* *fc^ V ^i* V ■ 



* 


BIT 




* 





PUNCH RESPONSE 


* 


1 


READ RESPONSE 


* 


2 


ERROR CHECK 


* 


3 


LAST CARD 


* 


4 


OPERATION COMPLETE 


* 


5 


NOT USED 


* 


6 


NOT USED 


* 


7 


FEED CHECK AT READ STAT 


* 


8 


NOT USED 


* 


9 


NOT USED 


* 


10 


NOT USED 


* 


11 


NOT USED 


* 


12 


NOT USED 


* 


13 


NOT USED 


* 


14 


BUSY 


* 


15 


NOT READY OR BUSY 


* 










ION 



$*#*#********##*#**#****«##*#*#*********=! 



SWS INVLD 
XXXX 

THE SETTING OF SWITCHES 4-7 DID NOT EQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PROGRAM IN CORE. 



OVR CORE 

THE PROGRAM WHICH THE LOADER WAS ATTEMPTING TO LOAD 
EXCEEDED AVAILABLE CORE. LOADING WAS TERMINATED. 



CKSUM 

A CHECK SUM ERROR WAS DETECTED WHILE LOADING A TEST PROGRAM. 
THIS ERROR OCCURS UNDER ANY OF THE FOLLOWING CONDITIONS. 

1. A CARD IS MISSING OR IS OUT OF SEQUENCE. 

2. 

3. 

4. 

5. 



THERE IS AN EXTRA CARD IN THE DECK. 

THE PUNCHED INFORMATION ON THE CARD IS NOT CORRECT. 
DATA WAS LOST OR PICKED UP DUE TO A MACHINE MALFUNCTION. 
DUE TO A CPU MALFUNCTION, THE CHECK SUM WAS NOT 
CORRECTLY CALCULATED. 



WHEN THIS ERROR OCCURS ATTEMPT TO RELOAD THE PROGRAM. 
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E0005 OOON XXXX 

THIS ERROR WILL OCCUR IF AN INTERRUPT OCCURS, AND THE EXPECTED ILSW 
WAS NOT RECEIVED. N IS THE INTERRUPT LEVEL AND XXXX IS THE 
ILSW. THIS PRINTOUT WILL ONLY OCCUR IF THE INTERRUPT IS RESET 
BY A BOSC. NO ATTEMPT IS MADE BY THE ERROR ROUTINE TO RESET 
THE REQUEST BIT. 



E2F06 OOOR AAAA 



E2F00 OOOR AAAA 



CARD NOT BLANK 



A PRE-PUNCHED CARD WAS DETECTED BY A PUNCH ROUTINE. THIS CARD WAS 
NOT PUNCHED BUT WAS REJECTED. THIS CARD WILL BE FED OUT INTO 
STACKER 1. 



E2F01 OOOR AAAA 



WAS S/B - STATIC DSW ERR 
XXXX 0000 



A BIT, IN ADDITION TO NOT READY, WAS ON IN THE DSW WHEN IT WAS 

SENSED BEFORE GIVING A CONTROL COMMAND TO THE 1442. USE THE 

ABOVE DSW TABLE TO IDENTIFY THE BIT, THEN TAKE APPROPRIATE CORRECTIVE 

ACTION. 



E2F02 OOOR AAAA 



LAST OP - CCCC 

WAS S/B - BUSY DSW ERR 

XXXX 0003 



THIS DSW WAS SENSED IMMEDIATELY AFTER THE 1442 CONTROL COMMAND 
WAS IDENTIFIED BY CCCC GIVEN. THAT COMMAND SHOULD MAKE THE 1442 
BUSY AND NOT READY. NO OTHER BITS SHOULD BE ON. 



E2F03 OOOR AAAA 



LAST OP - CCCC 

DSW - NO INTRPT 

XXXX 



LEV4 



NO OP COMPLETE INTERRUPT WAS RECEIVED FOLLOWING THE LAST CONTROL 
COMMAND, IDENTIFIED BY CCCC. THE COMMAND WAS RECEIVED BY 
THE 1442 IF AN E2F02 MESSAGE WAS NOT PRINTED. 



E2F04 OOOR AAAA 



LAST OP - CCCC 

WAS S/B - LEVO DSW ERR 

XXXX X003 



THIS DSW WAS SENSED IN THE LEVEL ZERO INTERRUPT ROUTINE. THE 
RESPONSE FOR THE LAST CONTROL COMMAND (IDENTIFIED BY CCCC) SHOULD 
BE ON, TOGETHER WITH BUSY AND NOT READY. 



E2F05 OOOR AAAA 



LAST OP - CCCC 

WAS S/B - LEV4 DSW ERR 

XXXX X80X 



THIS DSW WAS SENSED IN THE LEVEL 4 INTERRUPT ROUTINE. OP COMPLETE 
BIT SHOULD BE ON. THE LAST CARD AND NOT READY BITS MAY BE ON. 
ALL OTHER BITS SHOULD BE OFF. 



LAST OP - PUNCH 
WAS S/B - PCH CK 
XXXX 0000 



A PUNCH ECHO CHECK OCCURRED WHILE PUNCHING THE LAST CARD. XXXX IS 
THE PUNCH ECHO THAT WAS READ FROM THE 1442 BUFFER REGISTER FOLLOWING 
THE PUNCH CHECK. ANY BIT ON IN THIS WORD IDENTIFIES A UESCKEPANCY 
BETWEEN THE PUNCH DIE ECHO AND THE DATA WHICH WAS TO BE PUNCHED IN 
THE COLUMN. PUNCHING IS TERMINATED WHEN THIS ERROR IS DETECTED. 
THUS, THE ERROR OCCURRED IN THE LAST COLUMN PUNCHED. IF PUNCHING 
A ROTATE PATTERN DISCARD THE CARDS PUNCHED AND RESTART THE ROUTINE. 

THIS ERROR WILL OCCUR IN ROUTINE 1 IF THE PUNCH DELAY EXCEEDS THE 
DURATION OF THE PUNCH RESPONSE TRIGGER. THIS TRIGGER SHOULD STAY 
ON FOR AT LEAST 300 USEC. 

THE PROGRAM USES A MINIMUM DELAY OF 330 USEC TO HELP THE CE ADJUST 
THE SINGLE SHOT AS CLOSE AS POSSIBLE TO THE OPTIMUM OPERATION PUINT. 



E2F07 OOOR AAAA 



LAST OP - CCCC 
WAS S/B - ER CK 
XXXX 0000 



AN ERROR CHECK OCCURRED DURING THE LAST OPERATION. IF THE LAST 
OPERATION WAS READ OR PUNCHED, THIS MESSAGE SHOULD BE FOLLOWED 
BY AN E0F08 MESSAGE WHICH WILL IDENTIFY THE NUMBER OF COLUMNS 
PROCESSED BEFORE THE ERROR WAS DETECTED. TO CONTINUE, CLEAR ALL 
CARDS FROM THE 1442, THEN PRESS START. IF PUNCHING A ROTATING 
PATTERN TO BE READ BY THE NEXT ROUTINE, DISCARD THE CARDS PUNCHED 
AND RESTART THE ROUTINE. 



E2F08 OOOR AAAA 



WAS S/B - 
XXXXX YYYYY 



COL CNT ER 



XXXXX IDENTIFIES THE NUMBER OF COLUMN INTERRUPTS THAT OCCURRED 
DURING THE LAST OPERATION. YYYYY IDENTIFIES THE EXPECTED NUMBER 
OF INTERRUPTS. IF AN ERROR CHECK OCCURRED DURING THE LAST 
OPERATION (IDENTIFIED BY AN E0F06 OR E0F07 MESSAGE), THE OPERATION 
WILL TERMINATE AT THE TIME THE ERROR OCCURRS. THUS, THIS ERROR 
MESSAGE WILL IDENTIFY THE COLUMN BEING PROCESSED WHEN THE ERROR 
WAS DETECTED. 
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E2F09 OOOR AAAA 



WAS S/B COL - DATA ERR 
XXXX YYYY OOOZZ 



THF DATA XXXX READS FROM COLUMN ZZIIN DECIMAL) DOES NOT AGREE 
I?TH THE EXPECTED DATA YYYY FOR THAT COLUMN. CHECK CARD FOR 
CORRECT DATA! IF DATA IS CORRECT, THEN A READ ERROR OCCURRED. 
TF THE DATA IS NOT CORRECT, A PUNCH ERROR OCCURRED. IN THE 
LATTER CASE, IF NO PUNCH CHECK WAS DETECTED WHILE PUNCHING THE 
CARD, THE PUNCH ECHO CHECK IS NOT FUNCTIONING. 



E2F10 OOOR AAAA 



LAST OP - CCCC 
WAS MAX COL - 
XXXXX YYYYY ZZZZZ 



INTRPT SLOW 



XXXXX EQUALS THE COLUMN INTERRUPT TIME FOR THE COLUMN IDENTIFIED 
BY ZZZZZ. THE EXPECTED MAXIMUM TIME FOR THIS OPERATION ON THIS 
MODEL 1442 IS GIVEN BY YYYYY. 

CHECK THE ADJUSTMENT AND LUBRICATION OF THE FEED AND READ CLUTCH. 
ALSO CHECK THE PUNCH INCREMENTAL DRIVE. 



E2F11 OOOR AAAA 



LAST OP - CCCC 

WAS MAX COL - INTRPT FAST 

XXXXX YYYYY ZZZZZ 



XXXXX EQUALS THE COLUMN INTERRUPT TIME FOR THE COLUMN IDENTIFIED 
BY ZZZZZ. THE EXPECTED MAXIMUM TIME FOR THIS OPERATION ON THIS 
MODEL 1442 IS GIVEN BY YYYYY. 

CHECK THE ADJUSTMENT AND LUBRICATION OF THE FEED AND READ CLUTCH. 
ALSO CHECK THE PUNCH INCREMENTAL DRIVE. 



5. COMMENTS 

5.1*** TEST PROCEDURE 

5.1.1 TEST ORGANIZATION 

THF TEST ROUTINES FOLLOW THE SAME BASIC ORGANIZATION AS THE 1442 
FUNCTION TEST. THE TIMING CAPABILITY IS PART OF THE INTERRUPT 
RoStInE? AFTER THE COMPLETION OF EACH OPERATION, THE TIMING 
RESULTS ARE AVAILABLE TO THE TEST ROUTINE FOR ANALYSIS. 

5.1.2 ERROR CHECKING 

SAME ERROR CHECKING AS THE 1442 FUNCTION TEST WITH THE EXCEPTION 
THAT THE LEVEL DSW IS NOT CHECK. 

IN ADDITION, THE TIMING TEST ATTEMPTS TO FORCE PUNCH DELAY 
ERRORS {THESE ARE DETECTED AS PUNCH CHECKS), AND IT CALCULATES 
THE READ AND PUNCH RESPONSE TIMES COMPARING THEM TO 
MIMIMUM AND MAXIMUM VALUES FOR THE APPROPRIATE 1442 MODEL. 

5.2*** ROUTINE DESCRIPTION 

THIS SECTION CONTAINS A DESCRIPTION OF THE PROGRAM ROUTINES AND 

subroutine! Tin approximately the order in which they appear 
in the program as follows - 

1. test sequence control routine 

2. normal test routines 

3. OPTIONAL TEST ROUTINES 

4. TEST SUBROUTINES 

5. ERROR CONTROL ROUTINES 

6. INTERRUPT ROUTINE 

5.2.1 TEST SEQUENCE CONTROL ROUTINE - CNTRL 

THIS ROUTINE CHECKS THE ROUTINE SELECTION SWITCH (SW1 IN THE PROGRAM 
CONTROL TABLE) AND DETERMINES WHICH TEST ROUTINE IS TU BE RUN NEXT. 
CONTROL TABLE. SELECTED, IT ESTABLISHES A TRANSFER TU 

THAT ROUTINE. IF NO ROUTINE IS SELECTED, A TRANSFER IS tSTabLIbHtU 
TO THE NEXT TEST ROUTINE IN SEQUENCE. 

THE ROUTINE ADDRESS TAbLE (RTTBL) WHICH IS PART OF CNTRL CONTAINS 
THE ROUTINE ADDRESS FOR ALL TEST ROUTINES IN THE SEQUENCE IN WHICH 
THEY ARE TO BE RUN. 

THF I AST TEST ROUTINE IN THE NORMAL SEQUENCE IS IDENTIFIED BY THE 
^BLENRTN. AFTER THIS ROUTINE IS RUN, CNTRL WILL TRANSFER TU 
MONITOR END AND TERMINATE THE PROGRAM. ROUTINES FOLLOWING THE 
TABLE NRTN ARE CALLED OPTIONAL TEST ROUTINES AND WILL ONLY BE RUN 
IF SELECTED. 
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5.2.2 NORMAL TEST ROUTINES 

IF NO TEST ROUTINE IS SELECTED, THESE FOUR ROUTINES WILL RUN IN 
SEQUENCE THEN THE PROGRAM WILL TERMINATE. 



TEST ROUTINE 1 



DELAY PUNCH 



THIS ROUTINE PUNCHES CARDS USING DATA PREVIOUSLY SET IN THE 
DATA TABLE. THE DATA IS ROTATED BY ONE COLUMN FOR EACH CARD 
PUNCHED. EACH CARD IS READ AND CHECKED FOR BLANK BEFORE 
IT IS PUNCHED. THE ROUTINE PUNCHES THE FIRST 80 CARDS 
WITH A MAXIMUM PUNCH DELAY OF 333 USEC. 

** NOTE ** 

PUNCH DELAY IS THE TIME BETWEEN THE PUNCH RESPONSE INTERRUPT AND 
THE PUNCH DATA COMMAND. 

THE DELAY IS DECREASED BY 38 USEC. 38 USEC EQ 1 INCREMENT 
FOR EACH SUCCEEDING 80 CARDS. WHEN MINIMUM DELAY IS REACHED 
(219 USEC), THE PUNCH DELAY IS RESET TO 333 USED, AND THE CYCLE 
REPEATED UNTIL ALL CARDS IN THE HOPPER HAVE BEEN PUNCHED. 

AT THE START OF THE ROUTINE AND AT EACH CHANGE IN PUNCH DELAY, 
A MESSAGE IS PRINTED (A2F06) STATING THE PUNCH DELAY AND A PUNCH 
DELAY INCREMENT. THE DELAY IS RESET TO 333 USEC WHEN THIS INCRE- 
MENT GOES TO ZERO. 

THE TIME BETWEEN COLUMN INTERRUPTS IS DETERMINED BY THE INTERRUPT 
ROUTINE. IF THIS TIME FALLS OUTSIDE THE FOLLOWING LIMITS, 
AN ERROR MESSAGE (E2F10 OR E2F11) IS PRINTED 



MODEL 



5 OR 



MIN 
USEC 

10600 
5300 



MAX 
USEC 

14300 
7180 



AVG 
USEC 

12200 
6000 



AFTER PUNCHING 80 CARDS OR AT THE COMPLETION OF THE ROUTINE, AN 
AVERAGE COLUMN TIME MESSAGE IS PRINTED SPECIFYING THE AVERAGE 
TIME SINCE THE LAST AVERAGE MESSAGE WAS PRINTED. 

2. TEST ROUTINE 2 - READ 

THIS ROUTINE READS THE CARDS THAT WERE PUNCHED BY ROUTINE ONE. 
THE DATA READ IS COMPARED TO THE DATA PUNCHED. IF THESE ARE 
NOT EQUAL, AN ERROR MESSAGE (E2F09) IS PRINTED. 

THE TIME BETWEEN COLUMN INTERRUPTS IS DETERMINED BY THE INTERRUPT 
ROUTINE. IF THIS TIME FALLS OUTSIDE THE FOLLOWING LIMITS, 
AN ERROR MESSAGE (E2F10 OR E2F11) IS PRINTED 



MODEL 



5 OR 



MIN 
USEC 

900 
700 



MAX 
USEC 

1600 
1300 



AVG 
USEC 

1300 
1000 



AFTER READING 80 CARDS OR AT THE COMPLETION OF THE ROUTINE, AN 
AVERAGE CULUMN TIME MESSAGE IS PRINTED SPECIFYING THE AVERAGE 
TIME SINCE THE LAST AVERAGE MESSAGE WAS PRINTED. 
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TEST ROUTINE 3 - PUNCH TIME GRAPH 

THIS TEST WILL STORE THE TIME BETWEEN PUNCH COLUMN INTERRUPTS 
WHILE PUNCHING A CARD. ON THE NEXT CARD, IT WILL PUNCH A 
GRAPH WHICH DISPLAYS THE VARIATIONS IN COLUMN INTERRUPT TIME 
FROM COLUMN TO COLUMN. THIS PROCESS WILL BE REPEATED UNTIL 
THE LAST CARD INDICATOR IS SENSED. EACH ROW REPRESENTS 38 USEC. 



** NOTE ** 

IF THE CARD IS BLANK, OR A COLUMN IS BLANK, THE RANGE FOR THE 
CARD OR COLUMN IS OUTSIDE THE SPECIFICATIONS. IF THE CARD IS 
PUNCHED IN EVERY COLUMN IT IS WITHIN SPECIFICATIONS. HOWEVER, 
SEVERE OSCILLATIONS OF THE GRAPH INDICATE OTHER TROUBLE SUCH AS 
BINDING OR STICKING MECHANISMS. 



4. TEST ROUTINE 4 



READ TIME GRAPH 



THIS TEST WILL READ A BLANK CARD, STORE THE TIME BETWEEN READ 
COLUMN INTERRUPTS, THEN PUNCH A GRAPH DISPLAYING THE VARIATION 
IN COLUMN INTERRUPT TIME FROM COLUMN TO COLUMN. THIS PROCESS 
WILL BE REPEATED UNTIL THE LAST CARD INDICATOR IS SENSED. 

5.2.3 OPTIONAL TEST ROUTINE 

1. TEST ROUTINE 5 - MODIFY DATA 

THIS ROUTINE WILL READ ONE DATA CARD ANO REPLACE THE PUNCH DATA 
TABLE WITH THE DATA CONTAINED ON THAT CARD. THE ROUTINE WILL 
THEN RESTART THE PROGRAM FROM ROUTINE ONE. 

5.2.4 TEST SUBROUTINES 

1. PUNCH 

THIS SUBROUTINE PUNCHES ONE CARD THEN CHECKS FUR PUNCH ERRORS. 

2. READ 

THIS SUBROUTINE READS ONE CARD THEN CHECKS FOR READ ERRORS. 

3. COMPARE COLUMN TIME 

THIS SUBROUTINE CHECKS THAT COLUMN TIME FALLS WITHIN MINIMUM 
AND MAXIMUM LIMITS. IT ALSO ADDS ALL COLUMN TIMES AND KEEPS 
COUNT OF THE TOTAL NUMBER OF COLUMNS FOR CALCULATION OF THE 
COLUMN TIME AVERAGE. 

4. PRINT COLUMN INTERRUPT AVERAGE TIME 

THIS SUBROOTINE CALCULATES THE COLUMN INTERRUPT TIME AVERAGE 
AND PRINTS THE AVERAGE MESSAGE. 

5. CHECK FOR BLANKS 

THIS SUBROUTINE CHECKS EACH CARD BEFORE IT IS PUNCHED TO VERIFY 
THAT IT IS BLANK. 
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6. GRAPH SETUP 

THIS SUBROUTINE WILL CALCULATE A GRAPH POINT FOR EACH COLUMN 
TIME. THIS SET OF GRAPH POINTS WILL BE PUNCHED ON THE NEXT 
CARD. THE SCALE CAN BE CHANGED WITH A FUNCTION 3 BIT SWITCH 
ENTRY. 

7. READY 

THIS SUBROUTINE IS ENTERED BEFORE ANY 1442 CONTROL COMMAND IS 
GIVEN. IT READS THE 1442 DSW AND CHECKS IT FOR READY (ALL BITS 
OFF). ANY BIT ON OTHER THAN NOT READY (BIT 15) WILL BE 
IDENTIFIED BY AN E2F01 MESSAGE. IF ANY BIT IS ON, A NRDY 
MESSAGE (A2F05) WILL BE PRINTED. THIS ROUTINE STAYS IN A LOOP, 
PRINTING THE NRDY MESSAGE EACH 10 SECONDS UNTIL ALL BITS IN THE 
DSW GO OFF. 

8. LAST CARD 

THIS SUBROUTINE IS ENTERED AFTER AN OPERATION IS COMPLETED IF 
THE LAST CARD INDICATOR WAS TURNED ON DURING THAT OPERATION. 
THE SUBROUTINE WILL FEED OUT THE LAST CARD, PRINT A MESSAGE 
INDICATING THAT THE LAST CARD INDICATOR WAS DETECTED, THEN GO 
TO CNTRL TO TERMINATE THE ROUTINE AND ADVANCE TO THE NEXT 
ROUTINE. 

5.2.5 ERROR CONTROL ROUTINES 

1. INTERRUPT WAIT ROUTINE 

ALL SUBROUTINES COME HERE AFTER THE START OF AN I/O OPERATION 
FROM WHICH AN INTERRUPT IS EXPECTED. THIS ROUTINE RESETS ALL 
ERROR CONTROL WORDS, SENSES AND STORES THE BUSY DSW, THEN WAITS 
IN A TIMED LOOP (AT LEAST 20 SECONDS) FOR THE OP COMPLETE 
INTERRUPT. 

IF NO OP COMPLETE INTERRUPT IS RECEIVED THE FOLLOWING ERROR 
MESSAGES ARE PRINTED. 

A. E2F02 IS BUSY DSW ERROR 

B. E2F03 - NO OP COMPLETE INTERRUPT 

IF OP COMPLETE INTERRUPT IS RECEIVED THIS ROUTINE WILL CHECK 
FOR PROPER PERFORMANCES OF THE OPERATION. THE FOLLOWING CHECKS 
ARE MADE AND ERROR MESSAGES PRINTED IF APPROPRIATE. 

A. E2F02 IF BUSY DSW ERROR 

B. E2F05 IF OP COMPLETE DSW ERROR 

C. E2F08 IF INCORRECT NUMBER OF COLUMN INTERRUPTS 

THE ROUTINE WILL THEN CHECK FOR LAST CARD IF THE LAST CARD 
INDICATOR IS ON THIS ROUTINE WILL TRANSFER TO THE LAST CARD 
ROUTINE. IF NO LAST CARD THE ROUTINE WILL RETURN TO THE I/O 
SUBROUTINE FROM WHICH IT WAS ENTERED. 
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2. PRINT ERROR MESSAGES 

THIS ROUTINE PRINTS ALL THE ERROR MESSAGES. IF THE MESSAGE 
IS THE FIRST ERROR MESSAGE FOLLOWING AN I/O CONTRUL COMMAND 
A LAST OP MESSAGE WILL PRECEED THE ERROR MESSAGE. THIS LAST 
OP MESSAGE WILL IDENTIFY THE LAST I/O CONTROL OPERATION 
EXECUTED. THE ERROR MESSAGE FOLLOWING REFERS TO ERRORS 
DETECTED IN THAT OPERATION. 

5.2.6 INTERRUPT ROUTINES 

THE COLUMN INTERRUPT TIMING IS DONE IN THIS ROUTINE. THE PROGRAM 
TRANSFERS HERE ON THE FIRST COLUMN INTERRUPT. ALL FOLLOWING READ 
OR PUNCH RESPONSES ARE SENSED IN THIS INTERRUPT ROUTINE. THE 
ROUTINE DOES NOT BRANCH OUT OF INTERRUPT UNTIL AN OP COMPLETE 
RESPONSE IS SENSED. 
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0160 
0161 
0162 
0163 
0164 



0165 
0166 
0167 



017A 
018A 
019A 
01AA 
01BA 
01BB 
01BC 
01BD 



0000 



05DC 032F 



*************************************************** 
* 

* THIS ENGINEERING CHANGE REFLECTS MAJOR 

* CHANGES TO THE DIAGNOSTIC MONITOR. PREVIOUS 

* TESTS WILL NOT RUN WITH DIAGNOSTIC MONITOR II. 
* 

* THIS TEST WILL NOT RUN WITH PREVIOUS MONITORS. 
* 

* TESTS PRIOR TO EC 419643 DATED NOV 15, 1966 

* WILL NOT OPERATE PROPERLY WITH DIAGNOSTIC 

* MONITOR II. 
* 

*************************************************** 
******************************************** 

* 

* 1130 - 1442 READER/PUNCH TIMING TEST 

* 

* 
* 
* 
******************************************** 

* EQUATE TABLE 

******************************************** 

* THIS TABLE EQUATES TEST PROGRAM LABELS 

* TO THEIR EQUIVALENT DIAGNOSTIC MONITOR 

* ADDRESSES. 
* 

* 

* MONITOR ENTRY ADDRESSES 

BEGIN EQU /160 BEGIN ROUTINE 

START EQU BEGIN61 SUPERVISOR ROUTINE 

ERROR EQU STARTC1 ERROR LOG ROUTINE 

LOG EQU ERR0R61 STATUS LOG ROUTINE 

END EQU LOGtl END ROUTINE 

* 

* 

* MONITOR CONTROL WORD ADDRESSES 

* 

RTNSW EQU ENOtl ROUTINE START SW 

ERLCK EQU END62 LOCK ON ERROR CONTROL 

LOGBY EQU END63 I/O BUSY SW ADDRS 

* 

* 

* INTERRUPT TRANSFER VECTOR ADDRESSES 

* 

ILO EQU /17A INTERRUPT LEVEL ZERO 
IL1 EQU IL0616 INTERRUPT LEVEL ONE 
IL2 EQU IL1616 INTERRUPT LEVEL TWO 
IL3 EQU IL2E16 INTERRUPT LEVEL THREE 
IL4 EQU IL3E16 INTERRUPT LEVEL FOUR 
RQTY EQU IL4&1 CONSOLE PRINTER REQUEST 
RQKB EQU RQTY61 USE KEYBOARD REQUEST 
SVKB EQU RQKBS1 KB SERVICE REQUEST 
* 
******************************************** 

ORG *6/05DC 

* 

* THE MONITOR USES CORE LOCATIONS 0-05DC. 

* FOR CONTENTS OF THESE ADDRESSES REFER 

* TO THE DIAGNOSTIC MONITOR LISTING. 

* 

* 
******************************************** 

* PROGRAM CONTROL TABLE 
******************************************** 

* 

PID DC /032F PROGRAM ID 



32F00030 

32F00040 

32F00050 

32F00060 

32F00070 

32F00080 

32F00090 

32F00100 

32F00110 

32F00120 

32F00130 

32F00140 

32F00150 

32F00160 

32F00170 

32F00180 

32F00190 

32F00200 

32F00210 

32F00220 

32F00230 

32F00240 

32F00250 

32F00260 

32F00270 

32F00280 

32F00290 

32F00300 

32F00310 

32F00320 

32F00330 

32F00340 

32F00350 

32F00360 

32F00370 

32F00380 

32F 00390 

32F00400 

32F00410 

32F00420 

32F00430 

32F00440 

32F00450 

32F00460 

32F00470 

32F00480 

32F00490 

32F00500 

32F00510 

32F00520 

32F00530 

32F00540 

32F00550 

32F00560 

32F00570 

32F00580 

32F00590 

32F00600 

32F00610 

32F00620 

32F00630 

32F00640 

32F00650 

32F00660 

32F00670 

32F00680 

32F00690 

32F00700 



05DD 





0000 


05DE 





0000 


05DF 





0000 


05E0 





0000 


05E1 





0000 


05E2 





0000 


05E3 


1 


05EB 


05E4 


1 


05EB 


05E5 





0000 


05E6 





0000 


05E7 





FFFF 



05E8 4480 0160 
05EA 1 05DC 



05EB 





6100 




05EC 





69F0 




05ED 


1 


6D00 


0683 


05EF 


1 


6500 


096E 


05F1 





6D00 


017A 


05F3 


1 


6500 


0993 


05F5 





6D00 


01B8 


05F7 


1 


C400 


0682 


05F9 


1 


4420 


0654 



05FB C0E5 
05FC 1 4C20 060B 
05FE 6101 
05FF 1 6600 0AA9 
0601 1 4400 09F2 

0603 CODD 

0604 1 4C20 05EB 
0606 1 6500 0603 

0608 69DC 

0609 4480 0161 



060B 


1 


D400 


0682 


060D 





6100 




060E 





69D2 




060F 





0840 




0610 





0841 




0611 





7101 




0612 





1004 




0613 


1 


4C28 


0610 


0615 





7500 


F900 


0617 





7001 




0618 





7017 




0619 





6376 




061A 


1 


6F00 


0973 


061C 





6700 


0090 


061E 


1 


6F00 


097D 


0620 





6309 




0621 


1 


6F00 


06E4 


0623 





6700 


7117 


0625 


1 


6F00 


09A8 


0627 


1 


6F00 


0985 


0629 





6317 




062A 


1 


6F00 


06E5 


062C 





6700 


0087 



RID 


DC 


RAD 


DC 


SWO 


OC 


SW1 


DC 


SW2 


DC 


SW3 


DC 




DC 




DC 


MLSCF 


DC 




DC 




DC 



/oooo 
/oooo 
/oooo 
/oooo 
/oooo 
/oooo 

STRT 

STRT 

*-* 

*-* 

/FFFF 



ROUTINE 
ROUTINE 
PROGRAM 
ROUTINE 



ID 

ADDRS 
CONTROL 
SELECTION 



RESTART ADDRESS 

SET BY WAIT RTN AND MON 

SET BY CNTRL AND INRTPT 

TERMINATOR 



******************************************** 

* TEST INITIALIZATION 

******************************************** 

* 

BGIN BSI I BEGIN 

DC PID PCT ADDRESS 
* 

* 

* START OF TEST AND SINGLE PASS INITIALIZATION 

* 

* 
STRT 



* 
STRT1 



* 
SP 



SP1 



LDX 

STX 

STX 

LDX 

STX 

LDX 

STX 

LD 

BSI 

LD 

BSC 

LDX 

LDX 

BSI 

LD 

BSC 

LDX 

STX 

BSI 

STO 
LDX 
STX 
XIO 
XIO 
MDX 
SLA 
BSC 
MDX 
MDX 
MDX 
LDX 
STX 
LDX 
STX 
LDX 
STX 
LDX 
STX 
STX 
LDX 
STX 
LDX 



1 
1 
LI 
LI 
LI 
LI 
LI 
L 
L 



L 

1 
L2 
L 



L 
LI 

1 
I 





RID 

PONLY 

INTR 

ILO 

INTR2 

IL4-2 

MODNM 

CNTRL, Z 

SW2 

SP,Z 

1 

AMOD 

TYPE 

SW2 

STRT,Z 

STRT1 

MLSCF 

START 



1 



MODNM 



SW2 

TYP 

SENTY 

1 

4 

SP1,£Z 

-/700 

*ei 

MOD 

118 

SPD1&1 

144 

SPD2G1 

9 

PDMAX 

/7117 

DLPCH 

SPD3 

23 

L3 DINCR 
L3 135 



L 
LI 



3 

L3 
L3 
L3 

3 
L3 
L3 
L3 
L3 

3 



SET TO START WITH 

FIRST ROUTINE 
RESET PUNCH ONLY SW 

STO INTERRUPT TRANSFER 
VECTOR ADDRESSES 

CK FOR MOD NUM ENTRY 
BR IF MOD NUM ENTERED 



CHECK 
BR IF 



FOR MOD NUMBER 
MOD NUMBER ENTERED 



PRINT - ENTER MOD NUMBER 



LOOP UNTIL NUMBER ENTERED 

RETURN TO THE MONITOR 
TO ALLOW MSG TO PRINT 

STO MOO NUM 

CLEAR SW2 



SET NEW BASE TIME 



SET FOR 9 PUNCH 

DELAY INCREMENTS 

SET INCR TIME TO 23 USEC 



32F00710 

32F00720 

32F00730 

32F00740 

32F00750 

32F00760 

32F00770 

32F00780 

32F00790 

32F00800 

32F00810 

32F00820 

32F00830 

32F00840 

32F00850 

32F00860 

32F00870 

32F00880 

32F00890 

32F00900 

32F00910 

32F00920 

32F00930 

32F00940 

32F00950 

32F00960 

32F00970 

32F00980 

32F00990 

32F01000 

32F01010 

32F01020 

32F01030 

32F01040 

32F01050 

32F01060 

32F01070 

32F01080 

32F01090 

32F01100 

32F01110 

32F01120 

32F01130 

32F01140 

32F01150 

32F01160 

32F01170 

32F01180 

32F01190 

32F01200 

32F01210 

32F01220 

32F01230 

32F01240 

32F01250 

32F01260 

32F01270 

32F01280 

32F01290 

32F01300 

32F01310 

32F01320 

32F01330 

32F01340 

32F01350 

32F01360 

32F01370 

32F01380 



DATE 


02JAN66 


01MAY66 


15N0V66 


EC NO. 


415490 


415490B 


419643 
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062E 


1 


6F00 


06E6 


* 


STX 


L3 


PDBAS 




32F01390 
32F01400 


0630 





C051 




MOD 


LD 




MODNM 


LD THE MOO NUMBER 


32F01410 


0631 





100C 






SLA 




12 




32F01420 


0632 





180C 






SRA 




12 




32F01430 


0633 





9051 






S 




FIVE 




32F01440 


0634 


1 


4C20 


0638 




BSC 


L 


M0D6.Z 




32F01450 


0636 





684C 






STX 




PONLY 


IF MOD SET CNTRL TO 


32F01460 


0637 





401C 




* 


BSI 




CNTRL 


RUN PUNCH RTN ONLY 


32F01470 
32F01480 


0638 


1 


9400 


0684 


M006 


S 


L 


ONE 


CHECK FOR M0D6 


32F01490 


063A 


1 


4C20 


0649 




BSC 


L 


M0D7.Z 




32F01500 


063C 





C83F 






LDD 




P6TM 


IF M0D6 SET FOR 


32F01510 


0630 


1 


DCOO 


0912 




STD 


L 


PCMAX 


M0D6 TIMING 


32F01520 


063F 





C83E 






LDD 




R6TM 




32F01530 


0640 


1 


DCOO 


0914 




STD 


L 


ROMAX 




32 FO 1540 


0642 





C03D 






LD 




P6AV6 




32F01550 


0643 


1 


D400 


0A02 




STO 


L 


PAVG 




32F01560 


0645 





C03B 






LD 




R6AVG 




32F01570 


0646 


1 


D400 


0A03 




STO 


L 


RAV6 




32F01580 


0648 





400B 




* 


BSI 




CNTRL 




32F01590 
32F01600 


0649 





903A 




M0D7 


S 




ONE 


CHECK FOR M0D7 


32F01610 


064A 


1 


4418 


0654 




BSI 


L 


CNTRL, £- 




32F01620 


064C 





1810 






SRA 




16 


IF NOT M0D7 MOD NUMBER 


32F01630 


0640 





D093 






STO 




SW2 


ERROR. GO REQUEST 


32F01640 


064E 





709C 




* 


MDX 




STRT 


NEW MOO NUMBER 


32F01650 
32F01660 


0650 




0000 






BSS 


E 







32F01670 


0650 


1 


0652 




TYP 


DC 




SENTY 




32F01680 


0651 





0900 






DC 




/0900 




32F01690 


0652 





0500 




SENTY 


DC 




/0500 




32F01700 


0653 





0F01 




* 


DC 




/OFOl 




32F01710 
32F01720 










$*#*********#*****************#**$#***#***;(.* 


32F01730 










* 






SEQUENCE 


; CONTROL ROUTINE 


32F01740 










***#*******#*»*******$****##*:**#***#******** 


32F01750 










* THIS ROUTINE CHECKS 


SWITCHES AND CONTROLS 


32F01760 










* SEQUENCE 


IN 


WHICH TEST ROUTINES ARE RUN. 


32F01770 
32F01780 




























* 










32F01790 


0654 





0000 




CNTRL 


DC 




/OOOO 




32F01800 


0655 





C08A 






LD 




SMI 




32F01810 


0656 


1 


4C08 


0662 


* 


BSC 


L 


CN20,£ 


BR IF NO RTN SELECTD 


32F01820 
32F01830 


0658 


1 


D400 


05DD 


CN10 


STO 


L 


RID 


SAVE NEW RTN NUMBER 


32F01840 


065A 





901A 






S 




RIDCK 




32F01850 


065B 


1 


4C08 


0669 




BSC 


L 


CN30,t 


BR IF VALID RTN 


32F01860 


065D 





1810 






SRA 




16 




32F0187O 


065E 


1 


D400 


05E0 




STO 


L 


SW1 


IF INVALID RTN GO 


32F01880 


0660 


1 


D400 


05DD 


* 


STO 


L 


RID 


TO RTN ONE 


32F01890 
32F01900 


0662 


1 


7401 


050D 


CN20 


MDX 


L 


RID,1 


ADV TO NEXT RTN 


32F01910 


0664 


1 


C400 


0500 




LD 


L 


RID 


CHECK FOR END OF 


32F01920 


0666 





900F 






S 




RTNOM 


NORHAL SEQUENCE *1 


32F01930 


0667 





44B0 


0164 


* 


BSI 


I 


ENDf-Z 


END OF PROGRAM 


32F01940 
32F01950 


0669 


1 


6580 


0500 


CN30 


LDX 


11 


RID 


XR1#NEW ROUTINE NUMBER 


32F01960 


066B 


1 


C500 


0676 




LD 


LI 


RTTBL-1 


FETCH RETURN ADRS 


32F01970 


0660 


1 


D400 


05DE 




STO 


L 


RAD 


STORE NEW RTN ADDRS 


32F01980 


066F 


1 


D400 


05E6 




STO 


L 


MLSCF61 


SET MLSCF FOR RETURN 


32F01990 


0671 





D400 


0165 




STO 


L 


RTNSM 


SET RTN START SW 


32F02000 


0673 





4480 


0161 


* 


BSI 


I 


START 


GO TO MONITOR 


32F02010 
32F02020 


0675 





0005 




RIDCK 


DC 




LRTN-RTTBLU 


32F02030 


0676 





0004 




RTNOM 


DC 




NRTN-RTTBLtl *2 


32F02040 
32F02050 




























* 


ROUTINE 


AODRESS 


TABLE 


32F02060 
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* 










32F02070 


0677 


1 


0686 




RTTBL 


DC 




TST01 


DELAY PUNCH DATA 


32F02080 


0678 


1 


06E7 






DC 




TST02 


READ AND COMPARE 


32F02090 


0679 


1 


0721 






DC 




TST03 


GRAPH PUNCH TIME 


32F02100 


0&7A 


1 


073C 




NRTN 


DC 




TST04 


GRAPH READ TIME 


32F02110 


067B 


1 


0752 




LRTN 

* 
* 
* 


DC 




TST05 
1442 MODEL 


MODIFY DATA 

6 COLUMN INTRPT TIMES 


32F02120 
32F02130 
32F02140 
32F02150 


067C 




0000 






BSS 


E 






32F02160 


067C 





37DC 




P6TM 


DC 




14300 




32F02170 


067D 





2968 






DC 




10600 


MIN PUNCH TIME 


32F02180 


067E 





0640 




R6TM 


DC 




1600 


MAX READ TIME 


32F02190 


067F 





0384 






DC 




900 


MIN READ TIME 


32F022OO 


0680 





2FA8 




P6AVG 


DC 




12200 


AVG PUNCH TIME 


32F02210 


0681 





0514 




R6AVG 

* 


DC 




1300 


AVG READ TIME 


32F02220 
32F02230 


0682 





0000 




MODNM 


DC 




#-* 


MOD NUM 6 SPEED SW 


32F02240 


0683 





0000 




PONLY 


DC 







PUNCH ONLY SW 


32F02250 


0684 





0001 




ONE 


DC 




1 




32F02260 


0685 





0005 




FIVE 

* 
* 


DC 




5 




32F02270 
32F02280 
32F02290 










*******:t^$:e^**********#****$*$**«$*«##««:i<$«« 


32F02300 










* 






TEST ROUTINE 01 - DELAY PUNCH 


32F02310 










************#*****#*******************«$***# 


32F02320 










* 


THIS 


, ROUTINE PUNCHES CARDS USING DATA 


32F02330 










* 


PREVIOUSLY SET IN 


THE DATA TABLE. IT PUNCHES 


32F02340 










* 


THE 


FIRST 80 CARDS 


; WITH MAXINUM PUNCH DELAY. 


32F02350 










* 


THE 


DELAY IS THEN 


DECREASED ONE INCREMENT 


32F02360 










* 


FOR 


EACH 80 CARDS 


PUNCHED. PUNCH COLUMN 


32F02370 










* 


INTERRUPT TIME IS 


ALSO CHECKED. 


32F02360 
32F02390 




























* 










32F02400 


0686 





6102 




TST01 


LDX 


1 


2 




32F02410 


0687 


1 


6600 


0A72 




LDX 


L2 


ALDBK 




32F02420 


0689 


1 


4400 


09F2 




BSI 


L 


TYPE 


PRINT MSG- LOAD BLANKS 


32F02430 


068B 





10A0 






SLT 




32 




32F02440 


068C 


1 


DCOO 


0818 




STD 


L 


TAVG 




32F02450 


068E 


1 


D400 


081A 


* 


STO 


L 


AVGCT 




32F02460 
32F02470 


0690 





C053 




T010 


LD 




PDMAX 




32F02480 


0691 





D04F 






STO 




PDLAY 


RESET PUNCH DELAY 


32F02490 


0692 





684F 




* 


STX 




PDWAS 




32F02500 
32F02510 


0693 





6150 




T011 


LDX 


1 


80 


INITIALIZE PUNCH TABLE 


32F02520 


0694 


1 


C500 


0AD2 




LD 


LI 


PDATA-1 




32F02530 


069 6 





1804 






SRA 




4 


CLEAR TERM BITS 


32F02540 


0697 





1004 






SLA 




4 




32F02550 


0698 


1 


D500 


0AD2 




STO 


LI 


PDATA-1 




32F02560 


069A 


1 


D500 


0B22 




STO 


LI 


PDATAC79 


STO IN IMAGE TABLE 


32F02570 


069C 





71FF 






MDX 


1 


-1 




32F02580 


069 D 





70F6 




* 


MDX 




T011E1 




32F02590 
32F02600 


069E 


1 


6500 


0AD3 


T012 


LDX 


LI 


PDATA 


SET FOR START OF 


32F02610 


06A0 





6927 




* 


STX 


1 


T014&1 


ROTATE PATTERN 


32F02620 
32F02630 


06A1 


1 


C400 


05E1 


T013 


LD 


L 


SW2 


CK SW2 FOR CONSTANT DELAY 


32F02640 


06A3 





100C 






SLA 




12 


CLEAR HIGH ORDER BITS 


32F02650 


06A4 





180C 






SRA 




12 




32F02660 


06A5 





4820 






BSC 




Z 




32F02670 


06A6 





003A 




* 


STO 




PDLAY 




32F02680 
32F02690 


06A7 


1 


7400 


0683 




MDX 


L 


PONLY 


SKIP IF NOT MOD 


32F02700 


06A9 





7002 






MDX 




*G2 




32F02710 


06AA 


1 


4400 


07D7 


* 


BSI 


L 


CKBLK 


CK FOR BLANK CARD 


32F02720 
32F02730 


06AC 





C034 






LD 




PDLAY 




32F02740 
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06AD F034 




EOR 




PDWAS 


06AE 1 4C18 06C7 




BSC 


L 


T014.6- 


06B0 1 6780 06E1 




LDX 


13 


PDLAY 


06B2 6B2F 




STX 


3 


PDWAS 


06B3 1 C700 0AC3 




LD 


L3 


ADFCTS2 


06B5 1 D400 0AC1 




STO 


L 


ADFCT 


06B7 C02D 




LD 




DINCR 


06B8 A028 




M 




PDLAY 


06B9 1090 




SLT 




16 


06BA 802B 




A 




PDBAS 


06BB 1 D400 OAOO 




STO 


L 


MAXPD 


06BD 6106 




LDX 


1 


6 


06BE 1 6600 OABA 




LDX 


L2 


APDLY 


06C0 6301 




LDX 


3 


1 


06C1 1 6F0O 09FD 




STX 


L3 


SMSG&2 


06C3 1 4400 09F2 


# 


BSI 


L 


TYPE 


06C5 1 6C00 08FD 




STX 


L 


LOOP 


06C7 6700 0000 


T014 


LDX 


L3 


*-* 


06C9 1 4400 0765 


£ 


BSI 


L 


PUNCH 


06CB 1 4400 0796 




BSI 


L 


COMPR 


06CD 1 0912 




DC 




PCMAX 


06CE 1 0913 




DC 




PCMIN 


06CF 1 4400 0822 


jfc 


BSI 


L 


LOCK 


06U1 1 7401 06C8 




MDX 


L 


T014£l,l 


0603 C0F4 




LD 




T014&1 


06U4 900E 




S 




ENDPD 


06U5 1 4C08 06A1 


* 


BSC 


L 


T013.6 








DEC PUNCI 




* 






PUNCH PA' 


06D7 1 C400 05DF 


LD 


L 


SWO 


06U9 1009 




SLA 




9 


06UA 6306 




LDX 


3 


6 


06DB 1 4410 07C6 


$ 


BSI 


L 


TYAVG,- 


06UD 1 74FF 06E1 




MDX 


L 


PDLAY.-l 


06DF 70BE 




MDX 




T012 


06bO 70AF 


* 

PDLAY 


MDX 




T010 


06bl 0000 


DC 




*-* 


06E2 0000 


PDWAS 


DC 




*-* 


06E3 1 OB22 


ENDPD 


DC 




PDATA679 


06t4 0004 


PDMAX 

* 


DC 




4 


06t5 0025 


* 
DINCR 


DC 




37 


06E6 00B9 


PDBAS 


DC 




185 



IF PUNCH DELAY CHANGED 

PRINT MSG 
XR3#PUNCH DELAY FACTOR 
SAVE LAST PUNCH DELAY 
LD 1053 CODE 

STO DLY FACT CODE IN MSG 
LD PNCH DLY INCR 
MULT BY PNCH DLY FACTOR 

ADD PNCH DELAY BASE 
SET MAX PNCH DLY IN MSG 
MSG NUMBER 



SET MSG DATA CONTROL 
PRINT MSG- PUNCH DELAY 



SET LOOP ADDRS 
SET TO PUNCH DATA 



COMPARE COL INTRPT TIMES 



CK FOR LOCK ON FUNCTION 

ADV PUNCH ADDRS 

CK FOR END OF PUNCH 

DATA TABLE 
CONTINUE IF NOT END 



LOOK AT FORCE LOG SW 
SET MSG DATA CONTROL 
PRINT AVG COL TIME MSG 



IF ZERO RESET 

PUNCH DELAY FACTOR 
LAST PUNCH DELAY SAVED 

MAX PUNCH DELAY INCR 



* 

* TEST ROUTINE 02 - READ AND COMPARE 
***$**$*^ ******************* *************** 

* THIS ROUTINE READS THE CARD WHICH WERE 

* PUNCHED BY ROUTINE ONE. IT COMPARE THE DATA 

* WITH THE PUNCH DATA. IT ALSO CHECK THE READ 

* COLUMN INTERRUPT TIME. 



SKIP IF NOT MOD 

BR IF MOD 

SET MSG NUMBER 

PRINT MSG- LOAD PNCHD CDS 



06E7 





C09B 




TST02 


LD 




PONLY 


06E8 


1 


4420 


0654 




BSI 


L 


CNTRL,Z 


06EA 





6103 






LDX 


1 


3 


06EB 


1 


6600 


0AB2 




LDX 


L2 


ALPC 


06ED 


1 


4400 


09F2 




BSI 


L 


TYPE 



32F02750 

32F02760 

32F02770 

32F02780 

32F02790 

32F02800 

32F02810 

32F02820 

32F02830 

32F02840 

32F02850 

32F02860 

32F02870 

32F02880 

32F02890 

32F02900 

32F02910 

32F02920 

32F02930 

32F02940 

32F02950 

32F02960 

32F02970 

32F02980 

3 2F 02990 

32F03000 

32F03010 

32F03020 

32F03030 

32F03040 

32F03050 

32F03060 

32F03070 

32F03080 

32F03090 

32F03100 

32F03110 

32F03120 

32F03130 

32F03140 

32F03150 

32F03160 

32F03170 

32F03180 

32F03190 

32F03200 

32F03210 

32F03220 

32F03230 

32F03240 

32F03250 

32F03260 

32F03270 

32F03280 

32FQ3290 

32F03300 

32F03310 

32F03320 

32F03330 

32F03340 

32F03350 

32F03360 

32F03370 

32F03380 

32F03390 

32F03400 

32F03410 

32F03420 



06EF 10A0 
06F0 1 DCOO 0818 
06F2 1 0400 081A 

06F4 1 6500 0AD2 
06F6 6907 

06F7 1 4400 0784 

06F9 1810 
06FA 1 D400 08E4 
06FC 6101 

06FD C500 0000 

06FF 1 6D00 0918 

0701 1804 

0702 1004 

0703 1 D400 090F 
0705 1 F500 0B74 
0707 1 4420 088B 

0709 7101 

070A 1 C400 0918 
070C 1 9400 090C 
070E 1 4C28 06FD 

0710 1 4400 0796 

0712 1 0914 

0713 1 0915 

0714 1 7401 06FE 

0716 C0E7 

0717 90CB 

0718 1 4C28 06F7 

071A 1 C400 05DF 
071C 1009 
071D 630A 
071E 1 4410 07C6 
0720 70D3 



0721 6102 

0722 1 6600 0A72 
0724 1 4400 09F2 

0726 1810 

0727 1 D400 06E1 



0729 





6150 




072A 


1 


D500 


0B74 


072C 





71FF 




072D 





70FC 




072E 


1 


6700 


0B75 


0730 


1 


4400 


0765 


0732 


1 


6C00 


08FD 


0734 


1 


6780 


0A02 



T021 

* 
T022 

* 



* 
T023 



* 
T024 



SLT 
STD 
STO 

LDX 
STX 

BSI 

SRA 
STO 
LDX 

LD 

STX 

SRA 

SLA 

STO 

EOR 

BSI 

MDX 

LD 

S 

BSC 

BSI 
DC 

DC 

MDX 
LD 

S 
BSC 

LD 

SLA 

LDX 

BSI 

MDX 



L 
L 

LI 

1 



32 

TAVG 

AVGCT 

PDATA-1 
T023&1 



L READ 

16 
L M 
1 1 

LI *-* 
LI COL 

4 

4 
L DATAtl 
LI RTBL 
L ERR9,Z 
1 1 



COL 

COLCT 

T023,£Z 

COMPR 
RDMAX 
RDMIN 

T023E1,1 
T023&1 
ENDPD 
T022»6Z 

SWO 

9 

/A 

TYAVG,- 

T021 



SET FOR START OF PATTERN 



SET FOR FIRST ERROR 
XR3#C0LUMN COUNT 

LD DATA PUNCHED 
STO COLUMN COUNT 
CLEAR STOP PUNCH BIT 

STO DATA S/B 

COMPARE WITH DATA READ 

BR IF ERROR 

ADV TO NEXT COLUMN 

CHECK FOR LAST COL READ 

LOOP UNTIL LAST COL 

COMPARE COL INTRPT TIMES 



ADV COMPARE ADRS 
CK FOR END OF TABLE 

CONTINUE TO END OF PATTERN 



LOOK AT FORCE LOG SW 
SET MSG DATA CONTROL 
PRINT AVG COL TIME MSG 
REINITIALIZE 



******************************************** 

* TEST ROUTINE 03 - PUNCH TIME GRAPH 

******************************************** 



* 

* 
* 
* 
* 

* ...... 

* 

TST03 LDX 
LDX 
BSI 

* 

SRA 
STO 

LDX 
STO 
MDX 
MDX 
LDX 
BSI 
STX 
LDX 



THIS TEST WILL STORE THE TIME BETWEEN PUNCH 
COLUMN INTERRUPTS WHILE PUNCHING A CARD. ON 
THE NEXT CARD IT WILL PUNCH A GRAPH WHICH 
DISPLAYS THE VARIATION IN COLUMN INT TIME FRM 
COLUMN TO COLUMN. THIS PROCESS WILL BE 
REPEATED UNTIL THE LAST CARD INDICATOR IS 
SENSED. 



T031 



T032 



1 2 
L2 ALOBK 
L TYPE 

16 
L PDLAY 

1 80 

LI RTBL 
1 -1 
T031 
L3 RTBLtU 
L PUNCH 
L LOOP 
13 PAVG 



PRINT MSG- LOAD BLANKS 



RESET PUNCH DELAY 



SET TO PUNCH BLANKS 



SET LOOP ADDRS 



32F03430 

32F03440 

32F03450 

32F03460 

32F03470 

32F03480 

32F03490 

32F03500 

32F03510 

32F03520 

32F03530 

32F03540 

32F03550 

32F03560 

32F03570 

32F03580 

32F03590 

32F03600 

32F03610 

32F03620 

32F03630 

32F03640 

32F03650 

32F03660 

32F03670 

32F03680 

32F03690 

32F03700 

32F03710 

32F03720 

32F03730 

32F03740 

32F03750 

32F03760 

32F03770 

32F03780 

32F03790 

32F03800 

32F03810 

32F03820 

32F03830 

32F03840 

32F03850 

32F03860 

32F03870 

32F03880 

32F03890 

32F03900 

32F03910 

32F03920 

32F03930 

32F03940 

32F03950 

32F03960 

32F03970 

32F03980 

32F03990 

32F04000 

32F04010 

32F04020 

32F04030 

32F04040 

32F04050 

32F04060 

32F04070 

32F04080 

32F04090 

32F04100 
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* 








M0D6 PAVG # 12200 


32F04110 










* 








M0D7 PAVG # 6000 


32F04120 










* 










32F04130 


0736 


1 


4400 


07E5 




BSI 


L 


GRAPH 


SET UP GRAPH 


32F04140 


0738 


1 


6700 


0BC9 




LDX 


L3 


TIME£2 


SET TO PUNCH GRAPH 


32F04150 


073A 





402A 




* 


BSI 




PUNCH 




32F04160 
32F04170 
32F04180 


073B 





70F6 




* 


MOX 




T032 


REPEAT UNTIL LAST CARD 


32F04190 
32F04200 










***************************** J*************** 


32F04210 










* 






TEST ROUTINE 04 - READ TIME GRAPH 


32F04220 










******************************************** 


32F04230 










* 


THIS 


TEST HILL READ A BLANK CARD, STORE THE 


32F04240 










* 


TIME 


BETWEEN READ 


COLUMN INTERRUPTS, THEN 


32F04250 










* 


PUNCH A 


GRAPH DISPLAYING THE VARIATION IN 


32F04260 










* 


COLUMN 1 


INTERRUPT TIME FROM COLUMN TO COLUMN. 


32F04270 










* 


THIS 


PROCESS WILL 


BE REPEATED UNTIL THE LAST 


32F04280 










* 


CARD 


INDICATOR IS 


SENSED. 


32F 04290 




















32F04300 
32F04310 










* 










073C 


1 


C400 


0683 


TST04 


LD 


L 


PONLY 




32F04320 


073E 


1 


4420 


0654 




BSI 


L 


CNTRL, Z 


BR IF MOD 5 


32F04330 


0740 





6102 






LDX 


1 


2 




32F04340 


0741 


1 


6600 


0A72 




LDX 


L2 


ALDBK 




32F04350 


0743 


1 


4400 


09F2 




BSI 


L 


TYPE 


PRINT MSG- LOAD BLANKS 


32F04360 


0745 





1810 






SRA 




16 




32F04370 


0746 


1 


D400 


06E1 


* 


STO 


L 


PDLAY 


RESET PUNCH DELAY 


32F04380 
32F04390 


0748 


1 


4400 


07D7 


T041 

* 


BSI 


L 


CKBLK 


READ A BLANK CARD 


32F04400 
32F04410 


074A 


1 


6780 


0A03 


* 

* 
* 


LDX 


13 


RAVG 


XR3#READ TIME AVG 
M0D6 RAVG # 1300 
M0D7 RAVG # 1000 


32F04420 
32F04430 
32F04440 
32F04450 


074C 


1 


4400 


07E5 




BSI 


L 


GRAPH 


SET UP GRAPH 


32F04460 


074E 


1 


6700 


0BC9 




LOX 


L3 


TIME62 


SET TO PUNCH 6RAPH 


32F04A70 


0750 





4014 




* 


BSI 




PUNCH 




32F04480 
32F04490 


0751 





70F6 




* 


MDX 




T041 


REPEAT UNTIL LAST CARD 


32F04500 
32F04510 










******************************************** 


32F04520 










* 






TEST ROUTINE 05 - MODIFY DATA 


32F04530 










******************************************** 


32F04540 










* 


THIS 


ROUTINE WILL 


READ ONE DATA CARD AND 


32F04550 










* 


REPLACE 


THE PUNCH 


DATA TABLE WITH THE DATA 


32F04560 










* 


CONTAINED ON THAT 


CARD. THE ROUTINE WILL 


32F04570 










* 


THEN 


RESTART THE 1 


PROGRAM FROM ROUTINE ONE. 


32F04580 




















32F04590 
32F04600 










* 










0752 





4031 




TST05 

* 


BSI 




READ 


READ A CARD 


32F04610 
32F04620 


0753 


1 


6780 


09 OC 




LOX 


13 


COLCT 


XR3#C0LUMN COUNT 


32F04630 


0755 


1 


C700 


0B74 


T051 


LD 


L3 


RTBL 


LOAD DATA READ 


32F04640 


0757 


1 


D700 


0AD2 




STO 


L3 


PDATA-1 


STO IN PUNCH TABLE 


32F04650 


0759 





73FF 






MDX 


3 


-1 


GO TO NEXT COLUMN 


32F04660 


075A 





70FA 




* 


MOX 




T051 


LOOP UNTIL LAST COL 


32F04670 
32F04680 


075B 


1 


6C00 


05EO 




STX 


L 


SHI 


SET CNTRL TO RESTART RTN 1 


32F04690 


075D 


1 


4400 


0654 


* 


BSI 


L 


CNTRL 


GO TO CNTRL RTN 


32F04700 
32F04710 
32F04720 






















* 










32F04730 


0760 




0000 






BSS 


E 






32F04740 


0760 





0000 




STRD 


DC 




*-* 




32F04750 


0761 





1404 






DC 




/1404 


START READ IOCC 


32F04760 


0762 





0000 




STPCH 


DC 




*-* 




32F04770 


0763 





1401 






DC 




/1401 


START PUNCH IOCC 


32F04780 



0764 0000 



PTERM DC *-* 

* 

******************************************** 

* PUNCH 
******************************************** 

* THIS SUBROUTINE PUNCHES ONE CARD 

* THEN CHECKS FOR PUNCH ERRORS 

* THE ADDRESS OF THE PUNCH DATA TABLE MUST BE 

* IN XR3 UPON ENTRY. 



0765 





0000 




* 
PUNCH 


DC 




*-* 




0766 


1 


6F00 


0960 




STX 


L3 


COL PC 


SET TO PUNCH 1ST COL 


0768 





734F 






MDX 


3 


79 


SET TERMINATOR IN 


0769 





6BFA 






STX 


3 


PTERM 


PUNCH DATA 


076A 





C300 






LD 


3 







076B 


1 


ECOO 


0821 




OR 


L 


K0008 




076D 





D300 




* 


STO 


3 







076E 


1 


4400 


09B8 


BSI 


L 


READY 


CK FOR READY 


0770 


1 


6500 


0A5F 




LDX 


LI 


APCH 




0772 


1 


6D00 


0903 




STX 


LI 


OP 




0774 


1 


6C00 


08E6 




STX 


L 


RPSW 


SET RD/PCH SW TO PCH 


0776 





6150 






LDX 


1 


80 


SET COL COUNT 


0777 





08EA 






XIO 




STPCH 


START PUNCH 


0778 


1 


4400 


0919 




BSI 


L 


WAIT 


WAIT FOR INTERRUPT 


077A 


1 


4C90 


08FD 


* 


BSC 


I 


LOOP,- 




077C 


1 


C480 


0764 


LD 


I 


PTERM 


REMOVE TERMINATOR 


077E 





1804 






SRA 




4 




077F 





1004 






SLA 




4 




0780 


1 


D480 


0764 




STO 


I 


PTERM 





0782 1 4C80 0765 



BSC I PUNCH 



RETURN 



******************************************** 

* READ 

******************************************** 

* THIS SUBROUTINE READS ONE CARD THEN 

* CHECKS FOR READ ERRORS. 



0784 





0000 




* 
READ 


DC 




*-* 




0785 


1 


4400 


09B8 




BSI 


L 


READY 


CHECK FOR READY 


0787 


1 


6500 


0A5C 




LDX 


LI 


ARD 




0789 


1 


6D00 


0903 




STX 


LI 


OP 




078B 





1010 






SLA 




16 




078C 


1 


D400 


08E6 




STO 


L 


RPSW 


SET RD/PCH SW TO RD 


078E 





6150 






LDX 


1 


80 


SET COL COUNT 


078F 


1 


OCOO 


0760 




XIO 


L 


STRD 


START READ 


0791 


1 


4400 


0919 


* 


BSI 


L 


WAIT 


WAIT FOR INTERRUPT 


0793 


1 


4CA8 


0784 


BSC 


I 


READ,£Z 


RETURN 


0795 





70EF 




* 

* 


MDX 




READ&l 





0796 0000 



***************************** **************** 

* COMPARE COLUMN TIME 
***************************** **************** 

* THIS SUBROUTINE CHECKS THAT COLUMN TIME 

* FALLS WITHIN MINIMUM AND MAXIMUN LIMITS. 

* IT ALSO ADDS ALL COLUMN TIMES AND KEEPS 

* COUNT OF THE NUMBER COLUMNS FOR 

* CALCULATION OF COLUMN TIME AVERAGE. 



COMPR DC 

* 



32F04790 
32F04800 
32F04810 
32F04820 
32F04830 
32F04840 
32F04850 
32F04860 
32F04870 
32F04880 
32F04890 
32F04900 
32F04910 
32F0492O 
32F04930 
32F04940 
32F04950 
32F04960 
32F04970 
32F04980 
32F04990 
32F05000 
32F05010 
32F05020 
32F05030 
32F05040 
32F05050 
32F05060 
32FO507O 
32F05080 
32F05090 
32F05100 
32F05110 
32F05120 
32F05130 
32F05140 
32F05150 
32F05160 
32F05170 
32F05180 
32F05190 
32F05200 
32F05210 
32F05220 
32F05230 
32F05240 
32F05250 
32F05260 
32F05270 
32F05280 
32F05290 
32F05300 
32F05310 
32F05320 
32F05330 
32F05340 
32F05350 
32F05360 
32F05370 
32F05380 
32F05390 
32F05400 
32F05410 
32F05420 
32F05430 
32F05440 
32F05450 
32F05460 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490B 



15N0V66 
419643 



PROG ID 
PAGE 



032F-2 

4 



DATE 
EC NO. 



02JAN66 

415490 



01MAY66 
415490B 



15N0V66 
419643 



PROG 10 
PAGE 



032F-2 
4A 
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1442 TIMING TEST 
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XR1#CALL ADDRSEl 
XR3#C0L NUMBER 

ADV COL NUMBER 

LD COL NUMBER 
COMPARE WITH COL CNT 
CK ON PRINT AVG 

LD MAX COL TIME 
COMPARE WITH ACTUAL 
BR IF TO LONG 

LD M1N COL TIME 
COMPARE WITH ACTUAL 
BR IF TO SHORT 

TOTAL ALL COL TIME FOR AVG 



ADV COL CNT FOR AVG CALC 



RESET IF OVER FLOW COL CNT 



LOOK AT FORCE LOG SW 
SET DATA CONTROL 
PRINT AVG COL TIME MSG 



****************************************#*#* 

* PRINT COLUMN INTERRUPT AVERAGE TIME 

******************************************** 

* THIS SUBROUTINE CALCULATES THE COLUMN TIME 

* AVERAGE THEN PRINTS THE AVERAGE MESSAGE. 

* 



0797 


1 


6580 


0796 




LDX 


I 1 


COMPR 


0799 





6301 




4 


LDX 


3 


1 


079A 





7301 




C0MP1 


MDX 


3 


1 


079B 


1 


6FO0 


0918 




STX 


L3 


COL 


079D 


1 


C400 


0918 




LD 


L 


COL 


079F 


1 


9400 


09 OC 




S 


L 


COLCT 


07A1 


1 


4C30 


07BB 


* 


BSC 


L 


C0MP3.-Z 


07A3 





C580 


0000 




LD 


11 





07A5 


1 


9700 


0BC7 




S 


L3 


TIME 


07A7 


1 


4408 


08A3 


* 


BSI 


L 


ERR10,fc 


07A9 





C580 


0001 


LD 


11 


1 


07AB 


1 


9700 


0BC7 




S 


L3 


TIME 


07AD 


1 


4410 


08B0 


* 
C0MP2 


BSI 


L 


ERR11,- 


07AF 


1 


C700 


0BC7 


LD 


L3 


TIME 


07B1 





1890 






SRT 




16 


07b2 





8865 






AD 




TAVG 


07b3 





D864 






STD 




TAVG 


07b4 


1 


7401 


081A 




MDX 


L 


AVGCT, 1 


07B6 





70E3 




* 


MDX 




C0MP1 


07b7 





10A0 






SLT 




32 


07b8 





D061 






STO 




AVGCT 


07b9 





D85E 






STD 




TAVG 


07bA 





70DF 




* 

C0MP3 


MDX 




C0MP1 


07bB 


1 


C400 


05DF 


LD 


L 


SWO 


07bD 





1009 






SLA 




9 


07bE 





6700 


8002 




LDX 


L3 


/8002 


07C0 


1 


4428 


07C6 


* 


BSI 


L 


TYAVG, £Z 


07C2 


1 


7402 


0796 


MDX 


L 


COMPR, 2 


07C4 


1 


4C80 


0796 




BSC 


I 


COMPR 



07C6 





0000 




TYAVG DC 




*-* 


07C7 





C850 




LDD 




TAVG 


07C8 





A851 




D 




AVGCT 


07C9 


1 


D400 


0A01 


STO 


L 


CTAVG 


07CB 





6107 




LDX 


1 


7 


07CC 


1 


6600 


0A9E 


LDX 


L2 


ACOLT 


07CE 


1 


6FO0 


09FD 


STX 


L3 


SMSG&2 


07DO 


1 


4400 


09F2 


BSI 
* 

SLT 


L 


TYPE 


07D2 





10A0 






32 


0703 





0844 




STD 




TAVG 


07D4 





D045 




STO 




AVGCT 


07U5 


1 


4C80 


07C6 


BSC 


I 


TYAVG 



07D7 0000 
07D8 1 6C00 08FD 
07DA 40A9 



CALCULATE AVG 

SET IN MSG 
SET MSG NUMBER 

SET MSG DATA CONTROL 



RETURN 

* 

*********************** ********************* 

* CHECK FOR BLANKS 
******************************************** 

* THIS SUBROUTINE CHECKS EACH CARD BEFORE 

* IT IS PUNCHED TO VERIFY THAT IT IS BLANK. 

* 

* 

CKBLK DC 

STX L LOOP 

BSI READ READ A CARD 



32F05470 

32F05480 

32F05490 

32FO550O 

32F05510 

32F05520 

32F05530 

32F05540 

32F05550 

32F05560 

32F05570 

32F05580 

32F05590 

32F05600 

32F05610 

32F05620 

32F05630 

32F05640 

32F05650 

32F05660 

32F05670 

32F05680 

32F05690 

32F05700 

32F05710 

32F05720 

32F05730 

32F05740 

32F05750 

32F05760 

32F05770 

32F05780 

32F05790 

32F05800 

32F05810 

32F05820 

32F05830 

32F05840 

32F05850 

32F05860 

32F05870 

32F05880 

32F05890 

32F05900 

32F05910 

32F05920 

32F05930 

32F05940 

32F05950 

32F05960 

32F05970 

32F05980 

32F05990 

32F06000 

32F06010 

32F06020 

32F06030 

32F06040 

32F06050 

32F06060 

32F 06070 

32F06080 

32F06090 

32F06100 

32F06110 

32F06120 

32F06130 

32F06140 











* 










32F06150 


07DB 


1 


6780 


090C 




LDX 


13 


COLCT 


VERIFY THAT CARD 


32F06160 


07UD 


1 


C700 


0B74 


CKB01 


LD 


L3 


RTBL 


IS BLANK BEFORE 


32F06170 


07DF 


1 


4C20 


082C 




BSC 


L 


ERRO,Z 


PUNCHING IT 


32F06180 


07E1 





73FF 






MDX 


3 


-1 




32F06190 


07E2 





70FA 






MDX 




CKB01 


LOOP UNTIL LAST COL 


32F06200 


07E3 


1 


4C80 


07D7 


* 


BSC 


I 


CKBLK 


RETURN 


32F06210 
32F06220 










*********** 


t********************************* 


32F06230 










* 






GRAPH SETUP 


32F06240 










*********** 


:************ 


********************* 


32F06250 










* 


THIS 


SUBROUTINE WILL CALCULATE A GRAPH 


32F06260 










* 


POINT FOR EACH COLUMN TIME. THIS SET OF 


32F06270 










* 


GRAPH POINTS WILL 


. BE PUNCHED ON THE NEXT 


32F06260 










* 


CARD. 


THE SCALE 


CAN BE CHANGED WITH A 


32F06290 










* 


FNC 3 BIT SWITCH 


ENTRY. 


32F06300 




















32F06310 
32F06320 










* 










07E5 





0000 




GRAPH 


DC 




*-* 




32F06330 


07E6 





6B36 






STX 


3 


AVG 


STO AVG TIME 


32F06340 


07E7 





6201 






LDX 


2 


1 




32F06350 


07E8 





6A33 




* 


STX 


2 


TEMPG1 


SET SCALE FACTOR 


32F06360 
32F06370 


07E9 


1 


C400 


05E2 




LD 


L 


SW3 


CK FOR NEW SCALE ENTRY 


32F06380 


07EB 





100C 






SLA 




12 


CLEAR UNWANTED BITS 


32F06390 


07EC 





180C 






SRA 




12 




32F06400 


07ED 





4820 






BSC 




Z 


SKIP IF NO NEW SCALE 


32F06410 


07EE 





002D 




* 


STO 




TEMP61 




32F06420 
32F06430 


07EF 


1 


6780 


090C 




LDX 


13 


COLCT 


XR3#C0L CNT 


32F06440 


07F1 





73FF 






MDX 


3 


-1 




32F06450 


07F2 





C029 






LD 




TEMPG1 


LOAD SCALE FACTOR 


32F06460 


07F3 





A02B 






M 




HUND 


CAL SCALE 


32F06470 


07F4 





1090 






SLT 




16 




32F06480 


07F5 





D028 




* 


STO 




SCALE 


SAVE SCALE 


32F06490 
32F06500 


07F6 





C026 




GRPH1 


LD 




AVG 


LD AVG TIME 


32FO6510 


07F7 


1 


9700 


0BC8 




S 


L3 


TIME&l 


SUB ACTUAL TIME 


32F06520 


07F9 





1890 






SRT 




16 




32F06530 


07FA 





A823 






D 




SCALE 


DIVIDE BY SCALE 


32F06540 


07FB 





D01F 






STO 




TEMP 




32F06550 


07FC 


1 


6580 


081B 




LDX 


11 


TEMP 




32F06560 


07FE 





7104 






MDX 


1 


4 


XR1#GRAPH BIT POSITION 


32F06570 


07FF 





1000 






NOP 








32F06580 


0800 





COIF 






LD 




K8000 


LD A BIT 


32F06590 


0801 





1900 






SRA 


1 





SHIFT TO GRAPH POSITION 


32F06600 


0802 





1804 






SRA 




4 




32F06610 


0803 





1004 






SLA 




4 




32F06620 


0804 


1 


D700 


0BC9 




STO 


L3 


TIME62 


STO GRAPH BIT IN PNCH BUF 


32F06630 


0806 





73FF 






MDX 


3 


-1 


ADV TO NEXT COL 


32F06640 


0807 





70EE 






MDX 




GRPH1 


LOOP UNTIL LAST COL 


32F06650 


0808 


1 


6780 


090C 




LDX 


13 


COLCT 




32F06660 


080A 


1 


C700 


0BC8 




LD 


L3 


TIMEE1 




32F06670 


080C 





E814 






OR 




K0008 


SET LAST COL BIT 


32F06680 


080D 


1 


D700 


0BC8 


* 


STO 


L3 


TIMEtl 




32F06690 
32F06700 


080F 


1 


6580 


081C 




LDX 


I 1 


TEMP£1 


XR1#SCALE FACTOR 


32F06710 


0811 





7102 






MDX 


1 


2 




32F06720 


0812 





COOD 






LD 




K8000 


CONVERT SCALE FACTOR 


32F06730 


0813 





1900 






SRA 


1 





TO CARD IMAGE 


32F06740 


0814 


1 


D400 


0BC9 




STO 


L 


TIME62 


SET TO PUNCH IN CD COL ONE 


32F06750 


0816 


1 


4C80 


07E5 


* 


BSC 


I 


GRAPH 


RETURN 


32F06760 
32F06770 


0818 




0000 






BSS 


E 







32F06780 


0818 





0000 




TAVG 


DC 




*-* 


TOTAL COL TIME 


32F06790 


0819 





0000 






DC 




*-* 




32F06800 


081A 





0000 




AVGCT 


DC 




*-* 


COL CNT FOR AVG 


32F06810 


081B 





0000 




TEMP 


DC 




*-# 




32F06820 
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081C 





0000 






DC 




*-* 


081D 





0000 




AVG 


DC 




*-* 


081E 





0000 




SCALE 


DC 




*-* 


081F 





0026 




HUND 


DC 




38 


0820 





8000 




K8000 


DC 




/8000 


0821 





0008 




K0008 

* 
***** 


DC 




/0008 










***************** 










* 






LOCK ON 










*********** ******** *** 
* 


0822 





0000 




LOCK 


DC 




*_* 


0823 


1 


C400 


050F 




LD 


L 


swo 


0825 





EC80 


0166 




OR 


I 


ERLCK 


0827 





100A 






SLA 




10 


0828 


1 


4C90 


0822 




BSC 


I 


LOCK,- 


082A 


1 


4C80 


08FD 


* 


BSC 


I 


LOOP 










* 

***** ****** *********** 










* 






ERROR ME: 










***** 

* 

ERRO 


*****************: 


082C 





6100 




LOX 


1 





082D 





6200 






LDX 


2 


/oooo 


082E 


1 


CCOO 


08CE 




LDD 


L 


MSGO 


0830 


1 


6C00 


08F9 




STX 


L 


OPMSW 


0832 


1 


4400 


08EC 




BSI 


L 


ETYPE 


0834 


1 


OCOO 


08E6 




XIO 


L 


STACK-1 


0836 


1 


4C80 


07D7 


* 
ERRl 


BSC 


1 


CKBLK 


0838 





0000 




DC 




*-* 


0839 


1 


7400 


08E5 




MDX 


L 


ERR5S.0 


083B 





7008 






MDX 




ERRIA 


083C 





6101 






LDX 


1 


1 


083D 





6203 






LDX 


2 


/3 


083E 


1 


CCOO 


0800 




LDD 


L 


MSG1 


0840 


1 


6C00 


08F9 




STX 


L 


OPMSW 


0842 


1 


4400 


08EC 


* 
ERRIA 


BSI 


L 


ETYPE 


0844 





1011 




SLA 




17 


0845 


1 


D400 


08E5 




STO 


L 


ERR5S 


0847 


1 


4C80 


0838 


* 
ERR2 


BSC 


I 


ERRl 


0849 





0000 




DC 




*-* 


084A 


1 


CCOO 


08E8 




LDD 


L 


BDSW 


084C 


1 


DCOO 


090A 




STD 


L 


DSW 


084E 





6102 






LDX 


1 


2 


084F 





6203 






LDX 


2 


3 


0850 


1 


CCOO 


08D2 




LDD 


L 


MSG2 


0852 


1 


4400 


08EC 




BSI 


L 


ETYPE 


0854 


1 


4C80 


0849 


* 
ERRS 


BSC 


I 


ERR2 


0856 





0000 




DC 




*-* 


0857 


1 


6C00 


08E5 




STX 


L 


ERR5S 


0859 





6600 


0003 




LDX 


L2 


3 


085B 


1 


F400 


08EA 




EOR 


L 


DSW 4 


085D 


1 


0400 


08EB 




STO 


L 


DSW4&1 


085F 


1 


CCOO 


08EA 




LDD 


L 


DSW4 


0861 


1 


DCOO 


090A 




STD 


L 


DSW 


0863 





1002 






SLA 




2 


0864 


1 


4C28 


0860 


♦ 


BSC 


L 


ERR6,tZ 


0866 





6105 






LDX 


1 


5 


0867 


1 


CCOO 


0806 




LDD 


L 


MSG5 


0869 


1 


4400 


08EC 




BSI 


L 


ETYPE 


086B 


1 


4C80 


0856 


ERR5R 

* 


BSC 


I 


ERR5 



********************** 

FUNCTION ROUTINE 

********************** 



LD SWO 

COMB WITH MONITOR SWO 

CHECK LOCK SW 

BR IF NOT LOCK ON FUNC 

LOOP ON LAST FUNC 



*********************** 

SSAGE SETUP 
*********************** 



CARD NOT BLANK 



PRINT ERR MSG 



STATIC DSW ERROR 
IF PREVIOUS ERR5 
DO NOT PRINT THIS MSG 



PRINT ERR MSG 

RESET ERR5 SW 

BUSY DSW ERROR 

SET BUSY DSW IN MSG 

PRINT ERR MSG 



INTRPT 4 DSW ERROR 
SET ERROR 5 SW 
SET DATA ID 
GET DSW S/B 

SET IN MSG 

SET DSW IN MSG 
LOOK FOR ERR CK 
BR IF ERR CK 



PRINT ERR MSG 



32F06830 
32F06840 
32F06850 
32F06860 
32F06870 
32F06880 
32F06890 
32F06900 
32F06910 
32F06920 
32F06930 
32F06940 
32F06950 
32F06960 
32F06970 
32F06980 
32F06990 
32F07000 
32F07010 
32F07020 
32F07030 
32F07040 
32F07050 
32F07060 
32F07070 
32F07080 
32F07090 
32F07100 
32F07110 
32F07120 
32F07130 
32F07140 
32F07150 
32F07160 
32F07170 
32F07180 
32F07190 
32F07200 
32F07210 
32F07220 
32F07230 
32F07240 
32F07250 
32F07260 
32F07270 
32F07280 
32F07290 
32F07300 
32F07310 
32F07320 
32F07330 
32F07340 
32F07350 
32F07360 
32F07370 
32F07380 
32F07390 
32F07400 
32F07410 
32F07420 
32F07430 
32F07440 
32F07450 
32F07460 
32F07470 
32F07480 
32F07490 
32F07500 



086D 


1 


C400 


08E6 


ERR6 


LD 


L 


RPSW 


CK FOR PUNCH OPERATION 


32F07510 


086F 


1 


4C08 


087F 




BSC 


L 


ERR7,£ 


BR IF NOT PUNCH 


32F07520 


0871 


1 


OCOO 


095E 




XIO 


L 


COLRD 


RD ECHO BITS 


32F07530 


0873 


1 


C480 


095E 




LD 


I 


COLRD 




32F07540 


0875 


1 


4C18 


087F 




BSC 


L 


ERR7,t- 


BR IF NOT PUNCH CK 


32F07550 


0877 


1 


D400 


090A 




STO 


L 


DSW 


STO ECHO IN MSG 


32F07560 


0879 





6106 






LDX 


1 


6 




32F07570 


087A 





6203 






LDX 


2 


/3 




32F07580 


0878 





C85C 






LDD 




MSG6 




32F07590 


087C 


1 


4400 


08EC 




BSI 


L 


ETYPE 


PRINT ERR MSG 


32F07600 


087E 





70EC 




* 


MDX 




ERR5R 




32F07610 
32F07620 


087F 





6107 




ERR7 


LDX 


1 


7 


ERR CK 


32F07630 


0880 





C859 






LDD 




MSG7 




32F07640 


0881 


1 


4400 


08EC 




BSI 


L 


ETYPE 


PRINT ERR MSG 


32F07650 


0883 





70E7 




* 


MDX 




ERR5R 




32F07660 
32F07670 


0884 





0000 




ERR8 


DC 




*-* 


COL COUNT ERROR 


32F07680 


0885 





6108 






LDX 


1 


8 




32F07690 


0886 





620C 






LDX 


2 


/C 




32F07700 


0887 





C854 






LDD 




MSG8 




32F07710 


0888 





4063 






BSI 




ETYPE 


PRINT ERR MSG 


32F07720 


0889 


1 


4C80 


0884 


*.- 


BSC 


I 


ERR8 




32F07730 
32F07740 


088B 





0000 




ERR9 


DC 




*-* 


DATA COMPARE ERROR 


32F07750 


088C 


1 


F400 


090F 




EOR 


L 


DATA61 


RESTORE TO DATA WAS 


32F07760 


088E 


1 


0400 


090E 




STO 


L 


DATA 




32F07770 


0890 





690D 






STX 


1 


RX1&1 


SAVE XR1 


32F07780 


0891 





10A0 






SLT 




32 




32F07790 


0892 





6600 


C030 




LDX 


L2 


/C030 


SET FOR MULTI LINE MSG 


32F07800 


0894 


1 


7400 


08E4 




MDX 


L 


M 


CHECK FOR MULTI LINE 


32F07810 


0896 





7005 






MDX 




ERR9A 


BR IF FIRST LINE 


32F07820 


0897 





684C 






STX 




M 


SET MULTI LINE WORD 


32F07830 


0898 





6109 






LDX 


1 


9 


MESSAGE NUMBER 


32F07840 


0899 





6600 


4030 




LDX 


L2 


/4030 


SET WORD CNTL 


32F07850 


089B 





C842 






LDD 




MSG9 




32F07860 


089C 





404F 




ERR9A 


BSI 




ETYPE 


ERROR TYPE OUT 


32F07870 


0890 





*500 


oooo ; 


R»l 


LDX 


LI 


*-* 


RESTORE XR1 


32F07880 


089F 


1 


OCOO 


08E6 




XIO 


L 


STACK-1 


SELECT ERROR CARD 


32F07890 


08A1 


1 


4C80 


088B 


* 
* 


BSC 


I 


ERR9 


RETURN 


32F07900 
32F07910 
32F07920 


08A3 





0000 




ERR10 


DC 




*-* 




32F07930 


08A4 





6923 






STX 


1 


EXR1S1 


STO XR1 


32F07940 


08A5 





6B24 






STX 


3 


EXR3S1 


STO XR3 


32F07950 


08A6 





6110 






LDX 


1 


/10 


COL INTRPT SLOW 


32F07960 


08A7 





C838 




* 


LDD 




MSG10 




32F07970 
32F07980 


08A8 





6600 


4180 




LDX 


L2 


/4180 


SET FOR PUNCH MSG 


32F07990 


08AA 


1 


7400 


08E6 




MDX 


L 


RPSW 


CK PUNCH/READ SW 


32F08000 


08AC 





7010 






MDX 




ERX 


BR IF PUNCH 


32F08010 


08AD 





6600 


4480 




LDX 


L2 


/4480 


SET FOR READ MSG 


32F08020 


08AF 





700D 




* 


MDX 




ERX 




32F08030 
32F08040 


08B0 





0000 




ERR 11 


DC 




*-* 




32F08050 


08B1 





6916 






STX 


1 


EXR1&1 


STO XR1 


32F08060 


08B2 





6B17 






STX 


3 


EXR3U 


STO XR3 


32F08070 


08B3 





6111 






LDX 


1 


/ll 


COL INTRPT FAST 


32F08080 


08B4 





C82D 




* 


LDD 




MSG11 




32F08090 
32F08100 


08B5 





6600 


4280 




LDX 


L2 


/4280 


SET FOR PUNCH MSG 


32F08110 


08B7 


1 


7400 


08E6 




MDX 


L 


RPSW 


CK PUNCH/READ SW 


32F08120 


08B9 





7003 






MDX 




ERX 


BR IF PUNCH 


32F08130 


08BA 





6600 


4880 




LDX 


L2 


/4880 


SET FOR READ MSG 


32F08140 


08BC 





7000 




* 


MDX 




ERX 




32F08150 
32F08160 


08BD 


1 


7400 


08E4 


ERX 


MDX 


L 


M 




32F08170 


08BF 





7001 






MDX 




ERX1 




32F08180 
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08C0 7004 

08C1 18A0 
08C2 7600 8000 
08C4 1000 

08C5 4026 
08C6 681D 
08C7 6500 0000 
08C9 6700 0000 
08CB 1 4C00 07AF 



MDX 



ERX2 



08CE 




0000 


08CE 


1 


OA04 


08CF 





0000 


0800 


1 


OAOC 


08U1 


1 


0A1B 


08D2 


1 


OAOC 


08U3 


1 


0A24 


0804 


1 


0A18 


08D5 


1 


0A34 


0806 


1 


OAOC 


0807 


1 


0A2C 


0808 


1 


OAOC 


0809 


1 


0A3A 


080A 


1 


OAOC 


080B 


1 


0A40 


080C 


1 


0A11 


0800 


1 


0A45 


080E 


1 


OAOC 


080F 


1 


0A4C 


08tO 


1 


0A7E 


08E1 





0000 


08E2 


1 


0A8E 


08E3 





0000 


08E4 





0000 


08E5 





0000 


08E6 





0000 


08E7 





1480 


08E8 





0000 


08E9 





0003 


08EA 





0000 


08EB 





0000 



ERX1 


SRT 


32 




MDX 


L2 /8000 




NOP 




* 






ERX2 


BSI 


ETYPE 




STX 


M 


EXR1 


LDX 


LI *-* 


EXR3 


LDX 


L3 *-* 


* 


BSC 


L C0MP2 


BSS 


E 


MSGO 


DC 


ACNBK 




DC 


/OOOO 


MSG1 


DC 


AM AS 




DC 


ASDSW 


MSG2 


DC 


AW AS 




DC 


ABDSW 


MSG3 


DC 


ADSW 




DC 


ANINT 


MSG5 


DC 


AW AS 




DC 


ADSW4 


MSG6 


DC 


AW AS 




DC 


APCK 


MSG7 


DC 


AW AS 




DC 


AECK 


MSG8 


DC 


ADWAS 




DC 


ACCNT 


MSG9 


DC 


AW AS 




DC 


A DATA 


MSG10 


DC 


ATL 




DC 


/OOOO 


MSG11 


DC 


ATS 


* 
M 


DC 


/OOOO 


DC 


*-* 


ERR5S 


DC 


*-* 


RPSW 


DC 


*-* 


STACK 


DC 


/1480 


BDSW 


DC 


*-* 




DC 


/0003 


DSW4 


DC 


*-* 




DC 


*-* 



PRINT ERR MSG 

RESTORE XR1 
RESTORE XR3 



CARD NOT BLANK 
STATIC DSW ERROR 
BUSY DSW ERROR 
NO INTERRUPT 
LEVEL 4 DSW ERROR 
PUNCH CHECK 
ERROR CHECK 
COLUMN COUNT ERROR 
COLUMN DATA ERROR 
COL INTRPT SLOW 
COL INTRPT FAST 



MULTI LINE CONTROL WORD 
ERR 5 SW 
READ/PUNCH SW 
SELECT #2 STACKER 
BUSY DSW WAS 
S/B 
INT 4 DSW WAS 
S/B 



******************************************** 

* PRINT ERROR MESSAGE 
******************************************** 

* THIS ROUTINE PRINTS ALL THE ERROR MESSAGES. 

* UPON ENTRY THE MSG NO. MUST BE SET IN XR1, 

* THE DATA ID IN XR2, AND THE ALPHA ADDRS IN 

* THE ACCUM AND EXT. 



* 



08EC 





OOOO 




ETYPE 


DC 




*-* 


OBfcD 





6917 






STX 


1 


EMSG 


08EE 





6A18 






STX 


2 


EMSG62 


08EF 





D818 






STD 




EMSGE3 


08F0 


1 


C700 


0BC7 




LD 


L3 


TIME 


08F2 





D01E 




* 


STO 




TIMWS 


08F3 


1 


7400 


08F9 


MDX 


L 


OPMSW 


08F5 





7004 






MDX 




ETYPl 


08F6 





4480 


0162 




BSI 


I 


ERROR 


08FB 


1 


08FF 






DC 




ETYP2 


08F9 





OOOO 




OPMSW 

* 

ETYPl 


DC 




*-* 


08FA 





4480 


0162 


BSI 


I 


ERROR 



SET MSG NUMBER 
SET DATA ID 
SET ALPHA ADDRS 



PRINT LAST OP MSG IF 
FIRST ERROR MSG AFTER 
A CONTROL OP 

MUST BE ZERO FOR OP MSG 

PRINT ERROR MESSAGE 



32F08190 

32F08200 

32F08210 

32F08220 

32F08230 

32F08240 

32F08250 

32F08260 

32F08270 

32F08280 

32F08290 

32F08300 

32F08310 

32F08320 

32F08330 

32F08340 

32F08350 

32F08360 

32F08370 

32F08380 

32F08390 

32F08400 

32F08410 

32F08420 

32F08430 

32 F 08440 

32F08450 

32F08460 

32F08470 

32F08480 

32F08490 

32F08500 

32FO8510 

32F08520 

32F08530 

32F08540 

32F08550 

32F08560 

32F08570 

32F08580 

32F08590 

32F08600 

32F08610 

32F08620 

32F08630 

32F08640 

32F08650 

32F08660 

32F08670 

32F08680 

32F08690 

32F08700 

32F08710 

32F08720 

32F08730 

32F08740 

32F08750 

32F08760 

32F08770 

32F08780 

32F08790 

32F08800 

32F08810 

32F08820 

32F08830 

32F08840 

32F08850 

32F08860 



08FC 


1 


0905 




08FD 





OOOO 




08FE 





68FA 




08FF 


1 


4C80 


08EC 


0901 





8000 




0902 


1 


0A56 




0903 





OOOO 





DC EMSG 

LOOP DC *-* 

STX OPMSW 
* 

ETYP2 BSC I ETYPE 
* 

DC /8000 

DC ALOP 

OP DC *-* 

* 



LOOP ADDRS SET HERE 



RETURN 







0001 


* 


ERROR 


MESSAGE TABLE 


0904 




BSS 


E 1 




0905 





OOOO 


EMSG 


DC 


*-* 


MESSAGE NUMBER 


0906 





7F8C 




DC 


/7F8C 


HEX/DEC SW 


0907 





OOOO 




DC 


*-* 


DATA I/D 


0908 





OOOO 




DC 


*-* 


ALPHA ADDRS1 


0909 





OOOO 


ty 


DC 


*-* 


ALPHA ADDRS2 


090A 





OOOO 


DSW 


DC 


*-* 


DSW WAS 


090B 





OOOO 




DC 


*-* 


DSW S/B 


090C 





OOOO 


COLCT 


DC 


*-* 


COLUMN COUNT WAS 


090D 





00 50 




DC 


80 


COLUMN COUNT S/B 


090E 





OOOO 


DATA 


DC 


*-* 


READ OR PUNCH ECHO WAS 


090F 





OOOO 




DC 


*-* 


READ DATA S/B 


0910 





OOOO 




DC 


OOOO 


NOT USED 


0911 





OOOO 


TIMWS 


DC 


*-* 


TIME WAS 


0912 





1C0C 


PCMAX 


DC 


7180 


MAX PUNCH COL TIME 


0913 





14B4 


PCMIN 


DC 


5300 


MIN PUNCH COL TIME 


0914 





0514 


RDMAX 


DC 


1300 


MAX READ COL TIME 


0915 





02BC 


RDM IN 


DC 


700 


MIN READ COL TIME 


0916 





OOOO 




DC 


OOOO 


NOT USED 


0917 





OOOO 




DC 


OOOO 


NOT USED 


0918 





OOOO 


COL 

* 


DC 


*-* 


COL IN ERROR 








******************************************** 








* 




INTERRUPT 


WAIT ROUTINE 








******************************************** 








* 


THIS 


SUBROUTINE WAITS FOR INTERRUPT. 








* 


WHEN 


THE INTERRUPT 


IS RECEIVED IT WILL 








* 


CHECK THE ROUTINE 


SELECTION SWITCH. 








* 


IF A 


NEW ROUTINE HAS BEEN SELECTED IT 








* 


WILL 


BRANCH TO THE 


CONTROL ROUTINE. 



0919 





OOOO 




* 
WAIT 


DC 




*-* 


09 1A 





1810 






SRA 




16 


091B 





D0C8 






STO 




M 


09 1C 





DOEF 






STO 




COLCT 


09 ID 





DODB 






STO 




OPMSW 


091E 





69EE 






STX 


1 


C0LCT61 


09 IF 





6500 


1000 




LDX 


LI 


/1000 


0921 





6926 






STX 


1 


WCNT 


0922 





0841 






XIO 




SENSE 


09 23 





D0C4 




* 


STO 




BDSW 


09 24 


1 


6500 


092D 


WAIT1 


LDX 


LI 


WAIT3 


0926 


1 


7400 


05E6 




MDX 


L 


MLSCF&l 


0928 





7015 




* 
WAIT2 


MDX 




WAIT4 


0929 


1 


6D00 


05E5 


STX 


LI 


MLSCF 


092B 





4480 


0161 


* 
WAIT3 


BSI 


I 


START 


092D 


1 


74FF 


0948 


MDX 


L 


WCNT,-1 


092P 





70F4 






MDX 




WAIT1 


0930 





C0B7 






LD 




BDSW 


09 31 





F0B7 






EOR 




BDSWC1 



RESET MULT LINE CONTROL 
RESET COLUMN COUNT 
RESET OP MSG SW 

SET INTERRUPT 

WAIT CNT 
SENSE BUSY DSW 



CK FOR INTERRUPT 

BR IF INTERRUPT OCCURED 

SET RETURN ADDRESS 
GO TO MONITOR 

DECREMENT WAIT CNT 

CK BUSY DSW 



32F08870 

32F08880 

32F08890 

32F08900 

32F08910 

32F08920 

32F08930 

32F08940 

32F08950 

32F08960 

32F08970 

32F08980 

32F08990 

32F09000 

32F09010 

32F09020 

32F09030 

32F09040 

32F09050 

32F09060 

32F09070 

32F09080 

32F09090 

32F09100 

32F09110 

32F09120 

32F09130 

32F09140 

32F09150 

32F09160 

32F09170 

32F09180 

32F09190 

32F09200 

32F09210 

32F09220 

32F09230 

32F09240 

32F09250 

32F09260 

32F09270 

32F09280 

32F09290 

32F09300 

32F09310 

32F09320 

32F09330 

32F09340 

32F09350 

32F09360 

32F09370 

32F09380 

32F09390 

32F09400 

32F09410 

32F09420 

32F09430 

32F09440 

32F09450 

32F09460 

32F09470 

32F09480 

32F09490 

32F09500 

32F09510 

32F09520 

32F09530 

32F09540 
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0932 1 4420 ' 


0849 




BSI 


L 


ERR2.Z 


BR IF ER 


0934 082F 






XIO 




SENSE 


SENSE DSW 


0935 D0D4 






STO 




DSW 


STORE DSW IN MSG 


0936 6103 




ERR3 


LDX 


1 


3 


MESSAGE NUMBER 


0937 6201 






LDX 


2 


/0001 


SET WORD CNTL 


0938 C89B 






LDD 




MSG3 


MSG- NO INTRPT 


0939 4082 






BSI 




ETYPE 


PRINT ERR MSG 


093A 1 6780 


0919 




LDX 


13 


WAIT 


SET TO RETRY FUNCTION 


093C 1 6F00 


05E6 


# 
WAIT4 


STX 


L3 


MLSCFfcl 




093E 1 C400 


05E0 


LD 


L 


SW1 




0940 4488 


0161 




BSI 


I 


START, £ 


CK FOR RTN SELECT 


0942 1 9400 


05DD 




S 


L 


RID 


CK FOR NEW ROUTINE 


0944 1 4420 


0654 




BSI 


L 


CNTRL,Z 


BR IF NEW RTN 


0946 4480 


0161 


* 

WCNT 

* 


BSI 


I 


START 




0948 0000 




DC 




*-* 








* 






ERROR ANALYSIS 






******************************************** 






******************************************** 






* COME TO 


HERE FROM INTERRUPT AND CHECK FOR 






* ERRORS 


BEFORE RETURNING TO TEST ROUTINE 


0949 10A0 


* 
RTRN 


SLT 




32 




094A C09D 






LD 




BDSW 


CK BUSY DSW 


094B F09D 






EOR 




BDSW&l 




094C 1 4420 


0849 


* 


BSI 


L 


ERR2,Z 


BR IF ER 


094E C09B 




* 


LD 




DSW 4 


CK INT 4 DSW 


094F F01A 






EOR 




K0800 


REMOVE RESPONSE BIT 


0950 E01B 






AND 




KEFFE 


MASK LAST CD AND NRDY 


0951 1 4420 


0856 


* 


BSI 


L 


ERR5,Z 


BR IF ERR 


0953 C0B8 




LD 




COLCT 


CK COLUMN COUNT 


0954 F0B8 






EOR 




C0LCT61 


COMPARE WITH S/B 


0955 1 4420 


0884 


* 


BSI 


L 


ERR8.Z 


BR IF COL COUNT ER 


0957 C092 




* 


LD 




DSW4 


CK FOR LAST CARD 


0958 1004 






SLA 




4 




0959 1 4C02 


09D6 




BSC 


L 


LSTCD.C 


BR IF LAST CARD 


095B 1 4C80 


0919 


* 


BSC 


I 


WAIT 


RETURN TO TEST RTN 


095E 0000 




BSS 


E 






095E 1 0962 




COLRD 


DC 




RDATA 




095F 1200 






DC 




/1200 


READ COL IOCC 


09 60 0000 




COLPC 


DC 




*-* 




0961 1100 






DC 




/1100 


PUNCH IOCC 


0962 0000 




RDATA 


DC 




0000 


LAST READ DATA 


0963 1701 




SNCOL 


DC 




/1701 


SENSE AND RESET DSW 1 


0964 0000 




SENSE 


DC 









0965 1700 






DC 




/1700 


SENSE DSW IOCC 


0966 1 0968 




STOP 


DC 




TERM 




0967 1100 






DC 




/1100 




0968 FFFF 




TERM 


DC 




/FFFF 




0969 1402 




FEED 


DC 




/1402 


FEED IOCC 


096A 0800 




K0800 


DC 




/0800 




096B 1702 




SNCOM 


DC 




/1702 




096C EFFE 




KEFFE 


DC 




/EFFE 




096D C800 




KC800 


DC 




/C800 








* 

*******************##**! 


j! ******************** 






* 






INTERRUPT 


ROUTINE 






******************************************** 

* 



32F09550 

32F09560 

32F09570 

32F09580 

32F09590 

32F09600 

32F09610 

32F09620 

32F09630 

32F09640 

32F09650 

32F09660 

32F09670 

32F09680 

32F09690 

32F09700 

32F09710 

32F09720 

32F09730 

32F09740 

32F09750 

32F09760 

32F09770 

32F09780 

32F 09790 

32F09800 

32F09810 

32F09820 

32F09830 

32F09840 

32F09850 

32F09860 

32F09870 

32F09880 

32F09890 

32F09900 

32F09910 

32F09920 

32F09930 

32F09940 

32F09950 

32F09960 

32F09970 

32F09980 

32F09990 

32F1OO00 

32F10010 

32F10020 

32F10030 

32F10040 

32F10050 

32F10060 

32F10070 

32F10080 

32F 10090 

32F10100 

32F10110 

32F10120 

32F10130 

32F10140 

32F10150 

32F10160 

32F10170 

32F10180 

32F10190 

32F10200 

32F10210 

32F10220 



096E 0000 


INTR 


DC 




*-* 




096F 691E 




STX 


1 


SVXR1S1 


SAVE XR1 


0970 6A1F 




STX 


2 


SVXR2&1 


SAVE XR2 


0971 6201 




LDX 


2 


1 


RESET COL CNT 


0972 6500 00E1 


SPD1 


LDX 


LI 


225 


RESET TIMER 


0974 08EF 




XIO 




SENSE 


SENSE DSW 


0975 1 4C08 099D 




BSC 


L 


RDCOL, £ 


BR IF READ COL INT 


0977 102D 




SLA 




45 


TIMING ADJUST 


0978 7034 


* 
INTR1 


MDX 




PCH 




0979 7201 


MDX 


2 


1 


ADV COL CNT 


097A 1 6D00 0BC7 




STX 


LI 


TIME 




097C 6500 OOBE 


SPD2 


LDX 


LI 


190 


RESET TIMER 


097E 1 C400 0BC7 




LD 


L 


TIME 


LD TIMER CNT 


0980 1 D600 0BC7 




STO 


L2 


TIME 


STO TIME/COLUMN 


0982 08E1 




XIO 




SENSE 


SENSE DSW 


0983 180E 




SRA 




14 




09 84 1 4C04 09A3 




BSC 


L 


PCCOL, E 


BR IF PUNCH COL INT 


0986 1801 




SRA 




1 




0987 1 4C04 099D 


* 
* 


BSC 


L 


RDCOL, E 


BR IF READ COL INT 




OP COMPLETE 




0989 72FF 


* 


MDX 


2 


-1 


DEC FOR CORRECT COL 


098A 1000 




NOP 








098B 1 6E00 090C 




STX 


L2 


COLCT 


STO COL CNT 


098D 6500 0000 


SVXR1 


LDX 


LI 


*-* 


RESTORE XR1 


098F 6600 0000 


SVXR2 


LDX 


L2 


*-* 


RESTORE XR2 


0991 1 4C80 096E 


* 


BSC 


I 


INTR 


BR OUT OF INTR 


0993 0000 


INTR2 


DC 




*-* 




0994 08D5 




XIO 




SNCOM-1 


SENSE-RESET DSW 


0995 1 D400 08EA 




STO 


L 


DSW 4 


STO DSW 


0997 1 6700 0949 




LDX 


L3 


RTRN 




0999 1 6F00 05E6 




STX 


L3 


MLSCF61 


SET FOR RETURN 


099B 1 4C80 0993 




BSC 


I 


INTR2 


BR OUT OF INTR 




^ 
* 


READ 


COLUMN INTERRUPT 


099D 08C0 


RDCOL 


XIO 




COLRD 


READ A COLUMN 


099E C0C3 




LD 




RDATA 


LD DATA 


099F 1 D600 0B74 




STO 


L2 


RTBL 


STO DATA/COL 


09A1 101B 




SLA 




27 


TIMING ADJUSTMENT 


09 A2 700D 


* 
* 


MDX 




INTR3 






PUNCH COLUMN INTERRUPT 


09A3 1 6780 06E1 


* 

PCCOL LDX 


13 


t PDLAY 


LD DELAY CNT 


09A5 7300 




MDX 


2 


l 


CK FOR MIN DELAY 


09 A6 7001 




MDX 




DLPCH 




09A7 7005 




MDX 




PCH 




09A8 7125 


DLPCH MDX 


1 37 


ADV TIMER 


09A9 100C 




SLA 




12 


TIMING ADJUSTMENT 


09AA 73FF 




MDX 


3 -1 


DECR DELAY CNT 


09AB 70FC 




MDX 




DLPCH 


LOOP UNTIL CNT ZERO 


09AC 1006 




SLA 




6 


TIMING ADJUSTMENT 


09AD 08B2 


PCH 


XIO 




COLPC 


PUNCH COLUMN 


09AE 1 7401 0960 


* 


MDX 


L 


COLPC, 1 


ADV FOR NEXT COL. 




* 


TIMER • 


- THIS SUBROUTINE DETEMINES THE 




* 


TIME BETWEEN COLUMN INTERRUPTS 



09B0 08B1 
09B1 08B2 



* 

INTR3 XIO SNCOL-1 SENSE-RESET DSW 

* 

TIMER XIO SENSE SENSE DSW 



32F10230 

32F10240 

32F10250 

32F10260 

32F10270 

32F10280 

32F10290 

32F10300 

32F10310 

32F10320 

32F10330 

32F10340 

32F10350 

32F10360 

32F10370 

32F10380 

32F10390 

32F10400 

32F10410 

32F10420 

32F 10430 

32F10440 

32F10450 

32F10460 

32F10470 

32F10480 

32F10490 

32F10500 

32F1O510 

32F10520 

32F10530 

32F10540 

32F10550 

32F10560 

32F10570 

32F10580 

32F10590 

32F10600 

32F10610 

32F10620 

32F10630 

32F10640 

32F10650 

32F10660 

32F10670 

32F10680 

32F10690 

32F10700 

32F10710 

32F10720 

32F10730 

32F10740 

32F10750 

32F10760 

32F10770 

32F10780 

32F10790 

32F10800 

32F10810 

32F10820 

32F10830 

32F10840 

32F10850 

32F10860 

32F10870 

32F10880 

32F 10890 

32F10900 
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09B2 EOBA 
09B3 1 4C20 0979 
09B5 7126 
09B6 70FA 
09B7 70D5 



AND KC800 MASK ALL BUT 0,1,4 

BSC L INTR1,Z BR IF INTERRUPT 
SPD3 MDX 1 38 ADV TIMER 

MDX TIMER LOOP FOR 30 MSEC 

MDX SVXR1 
* 

********************************************* 
* CHECK READY 

********************************************* 

* 



SENSE DSW 

STORE DSW 

NO BITS FOUND 

REMOVE NRDY 

BR IF OTHER THAN NRDY 



09B8 





0000 




READY 


DC 




*-* 


09 B9 





10A0 






SLT 




32 


09BA 





08A9 






XIO 




SENSE 


09 BB 


1 


DCOO 


090A 




STD 


L 


DSW 


09BD 


1 


4C98 


09 B8 




BSC 


I 


READY, £- 


09BF 





1801 






SRA 




1 


09C0 


1 


4420 


0838 


* 


BSI 


L 


ERR1.Z 


09C2 





1011 




BOX 


SLA 




17 


09C3 





D011 




$ 


STO 




BCNT 


09C4 


1 


6500 


09CA 


B0X1 


LDX 


LI 


BOX 2 


09C6 


1 


6D00 


05E6 




STX 


LI 


MLSCF61 


09C8 


1 


4CO0 


093E 




BSC 


L 


WAIT4 



RESET BOX CNT 

LD REENTRY ADDRS 

SET MLSCF 

GO TO MONITOR 



09CA 0899 
09CB 1 4C98 09B8 
09CD 1 7403 09D5 
09CF 70F4 

0900 6105 
09D1 1 6600 0A66 
09D3 401E 
09D4 70ED 

0905 0000 



09D6 1 6700 0A63 
09D8 1 6F00 0903 
09DA 088D 

09DB 6104 
09UC 1 6600 0A78 
09 UE 4013 

09DF 1810 
09E0 1 D400 05E1 
09E2 1 D400 05E2 

09E4 1 C400 05DD 
09E6 900A 
09E7 1 4430 0654 

09E9 1 C400 05DF 

09EB 1009 

09EC 6302 

09ED 1 4410 07C6 

09EF 1 4400 0654 
09F1 0002 



SENSE DSW 
RETURN IF READY 



MESSAGE NUMBER 
NOT READY 
PRINT MESSAGE 



* 

B0X2 XIO SENSE 

BSC I READY, £- 

MDX L BCNT, 3 

MDX B0X1 
* 

NRDY LDX 1 5 

LDX L2 ANRDY 

BSI TYPE 

MDX BOX 
* 

BCNT DC *-* 
* 
********************************************* 

* FEED LAST CARD 

********************************************* 

* 

LSTCD LDX L3 AFD 

STX L3 OP 

XIO FEED-1 



FEED LAST CARD 



LDX 1 4 
LDX L2 ALCD 
BSI TYPE 



PRINT MSG- LAST CARD 



RESET DELAY FACTOR 
RESET GRAPH SCALE 

LD LAST RTN NUMBER 
CK FOR ROUTINE 1 OR 2 
BR IF NOT 1 OR 2 



LOOK AT FORCE LOG SW 
SET FOR AVG ONLY 
PRINT AVG COL TIME MSG 

GO TO CNTRL RTN 
TWO 

* 
********************************************* 

* PRINT STATUS MESSAGE 

********************************************* 



SRA 




16 


STO 


L 


SW2 


STO 


L 


SW3 


LD 


L 


RID 


S 




TWO 


BSI 


L 


CNTRL, -Z 


LD 


L 


SWO 


SLA 




9 


LDX 


3 


2 


BSI 


L 


TYAVG,- 


BSI 


L 


CNTRL 


DC 




2 



32F10910 

32F10920 

32F10930 

32F10940 

32F10950 

32F10960 

32F 10970 

32F10980 

32F 10990 

32F11000 

32F11010 

32F11020 

32F11030 

32F 11040 

32F11050 

32F11060 

32F11070 

32F11080 

32F11090 

32F11100 

32F11110 

32F11120 

32F11130 

32F11140 

32F11150 

32F11160 

32F11170 

32F11180 

32F11190 

32F11200 

32F11210 

32F11220 

32F11230 

32F11240 

32F11250 

32F11260 

32F11270 

32F11280 

32F11290 

32F11300 

32F11310 

32F11320 

32F11330 

32F11340 

32F11350 

32F11360 

32FU370 

32F11380 

32F11390 

32F11400 

32F11410 

32F11420 

32F11430 

32F11440 

32F11450 

32F11460 

32F11470 

32F11480 

32F11490 

32F11500 

32F11510 

32F 11520 

32F11530 

32F11540 

32F11550 

32F11560 

32F11570 

32F11580 



* THIS SUBROUTINE PRINTS ALL THE STATUS 

* MESSAGES. THE MESSAGE NUMBER MUST BE SET 

* IN XR1 AND THE ALPHA ADDRESS IN XR2 UPON 

* ENTRY. 



09F2 0000 
09F3 6907 
09F4 6A09 
09F5 4480 0163 
09F7 1 09FB 

09F8 D004 
09F9 1 4C80 09F2 
09FB 0000 
09FC OOOF 
09FD 0000 
09FE 0000 
09FF 0000 

OAOO 0000 
0A01 0000 
0A02 1770 
0A03 03E8 



OA04 





1E3E 


0A05 





6232 


0A06 





2176 


0A07 





529E 


0A08 





211A 


0A09 





5E3E 


OAOA 





765A 


OAOB 





FFFF 



OAOC 923E 
OAOD 9A21 
OAOE 219A 
OAOF BC1A 
0A1O FFFF 



0A11 





923E 


0A12 





9A21 


0A13 





2121 


0A14 





9ABC 


0A15 





1A21 


0A16 





2121 


0A17 





FFFF 


0A18 





329A 


0A19 





9221 


0A1A 





FFFF 


0A1B 





2184 


0A1C 





9A9E 


0A1D 





3E9E 


0A1E 





221E 


0A1F 





2132 


0A20 





9A92 


0A21 





2136 


0A22 





6262 


0A23 





FFFF 



* 
TYPE 



SMSG 



DC 
STX 
STX 
BSI 

DC 

STO 
BSC 
DC 

DC 
DC 
DC 
DC 



*-* 

1 SMSG 

2 SMSGS3 
LOG 
SMSG 

SMSGC2 
TYPE 

*-* 

/OOOF 

*-* 
*-* 

/oooo 



MAXPD DC *-* 

CTAVG DC *-* 

PAVG DC 6000 

RAVG DC 1000 

* 
* 
******************** 

* ALPHA 

******************** 

* 



SET MSG NO. 
SET ALPHA ADDRS 
PRINT MSG 



RESET DATA CONTROL 

RETURN 

MSG NO. SET HERE 



ALPHA ADDRS SET HERE 



MAX PUNCH DELAY 
COLUMN TIME AVERAGE 
PUNCH AVERAGE S/B 
READ AVERAGE S/B 



ACNBK DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 



* 
AWAS 



DC 
DC 
DC 
DC 
DC 



ADWAS DC 
DC 

DC 
DC 
DC 
DC 

DC 



* 
ADSW 



DC 
DC 
DC 



0A24 2184 



ASDSW DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

* 

ABDSW DC 



/1E3E 
/6232 
/2176 
/529E 
/211A 
/5E3E 
/76 5A 
/FFFF 

/923E 
/9A21 
/219A 
/BC1A 
/FFFF 

/923E 
/9A21 
/2121 
/9ABC 
/1A21 
/2121 
/FFFF 

/329A 
/9221 
/FFFF 

/2184 
/9A9E 
/3E9E 
/221E 
/2132 
/9A92 
/2136 
/6262 
/FFFF 

/2184 



************#************ 

MESSAGES 

************************* 

CARD NOT BLANK 



WAS S/B 



HAS S/B 



DSW 



-STATIC DSW ERR 



-BUSY DSW ERR 



32F11590 

32F11600 

32F11610 

32F11620 

32F11630 

32F11640 

32F11650 

32F11660 

32F11670 

32F11680 

32F11690 

32F11700 

32F11710 

32F11720 

32F11730 

32FU740 

32F11750 

32F11760 

32F11770 

32F11780 

32F11790 

32F11800 

32F11810 

32F11820 

32F11830 

32F11840 

32F11850 

32F11860 

32F11870 

32F11880 

32F11890 

32F11900 

32F11910 

32F11920 

32F11930 

32F11940 

32F11950 

32F11960 

32F11970 

32F11980 

32F11990 

32F12000 

32F12010 

32F12020 

32F12030 

32F12040 

32F12050 

32F12060 

32F12070 

32F12080 

32F12090 

32F12100 

32F12110 

32F12120 

32F12130 

32F12140 

32F12150 

32F12160 

32F12170 

32F12180 

32F12190 

32F12200 

32F12210 

32F12220 

32F12230 

32F12240 

32F12250 

32F12260 
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0A25 





1AB2 


0A26 





9AA6 


0A27 





2132 


0A28 





9A92 


0A29 





2136 


0A2A 





6262 


0A2B 





FFFF 


0A2C 





2184 


0A2D 





5E36 


0A2E 





B6F0 


0A2F 





2132 


0A30 





9A92 


0A31 





2136 


0A32 





6262 


0A33 





FFFF 


0A34 





2176 


0A35 





5221 


0A36 





2276 


0A37 





9E62 


0A38 





569E 


0A39 





FFFF 


0A3A 





2184 


0A3B 





56B2 


0A3C 





761E 


0A3D 





2621 


0A3E 





1E5A 


0A3F 





FFFF 


0A40 





2184 


0A41 





3662 


0A42 





6221 


0A43 





1E5A 


0A44 





FFFF 


0A45 





2184 


0A46 





1E52 


0A47 





5E21 


0A48 





1E76 


0A49 





9E21 


0A4A 





3662 


0A4B 





FFFF 


0A4C 





2121 


0A4D 





1E52 


0A4E 





5E21 


0A4F 





2121 


0A50 





2184 


0A51 





323E 


0A52 





9E3E 


0A53 





2136 


0A54 





6262 


0A55 





FFFF 


0A56 





095E 


0A57 





3E9A 


0A58 





9E21 


0A59 





5256 


0A5A 





8421 


0A5B 





FFFF 


0A5C 





6236 


0A5D 





3E32 


0A5E 





FFFF 



DC 
DC 
DC 
DC 
DC 
DC 
DC 

ADSW4 DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

* 

ANINT DC 
DC 
DC 
DC 
DC 
DC 

* 



APCK 



AECK 



DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 



ACCNT DC 
DC 
DC 
DC 
DC 
DC 
DC 

* 

ADATA DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



0A5F 56B2 



ALOP 



* 
ARD 



APCH 



DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 

DC 



/1AB2 
/9AA6 
/2132 
/9A92 
/2136 
/6262 
/FFFF 

/2184 
/5E36 
/B6F0 
/2132 
/9A92 
/2136 
/6262 
/FFFF 

/2176 
/5221 
/2276 
/9E62 
/569E 
/FFFF 

/2184 
/56B2 
/761E 
/2621 
/1E5A 
/FFFF 

/21B4 
/3662 
/6221 
/1E5A 
/FFFF 

/2184 
/1E52 
/5E21 
/1E76 
/9E21 
/3662 
/FFFF 

/2121 
/1E52 
/5E21 
/2121 
/2184 
/32 3E 
/9E3E 
/2136 
/6262 
/FFFF 

/095E 
/3E9A 
/9E21 
/5256 
/8421 
/FFFF 

/6236 
/3E32 
/FFFF 

/56B2 



-LEV4 DSW ERR 



NO INTRPT 



PCH CK 



ERR CK 



COL CNT ER 



COL DATA ERR 



LAST OP- 



READ 



PUNCH 



32F12270 
32F12280 
32F12290 
32F12300 
32F12310 
32F12320 
32F12330 
32F12340 
32F12350 
32F12360 
32F12370 
32F12380 
32F12390 
32F12400 
32F12410 
32F12420 
32F12430 
32F12440 
32F12450 
32F12460 
32F12470 
32F12480 
32F12490 
32F12500 
32F12510 
32F12520 
32F12530 
32F12540 
32F12550 
32F12560 
32F12570 
32F12580 
32F12590 
32F12600 
32F12610 
32F12620 
32F 12630 
32F12640 
32F12650 
32F12660 
32F12670 
32F12680 
32F12690 
32F12700 
32F 12710 
32F12720 
32F12730 
32F12740 
32F12750 
32F12760 
32F12770 
32F12780 
32F12790 
32F12800 
32F12810 
32F12820 
32F12830 
32F12840 
32F12850 
32F12860 
32F12870 
32F12880 
32F12890 
32F12900 
32F12910 
32F12920 
32F12930 
32F12940 



OA60 





761E 


0A61 





2600 


0A62 





FFFF 


0A63 





1236 


0A64 





3632 


0A65 





FFFF 


0A66 





7662 


0A67 





32A6 


0A68 





2184 


0A69 





5662 


0A6A 





369A 


0A6B 





9A21 


0A6C 





FCFO 


0A6D 





F0D8 


0A6E 





219A 


0A6F 





9E3E 


0A70 





629E 


0A71 





FFFF 


OA72 





5E32 


0A73 





2100 


0A74 





1A5E 


0A75 





3E76 


0A76 





5A9A 


0A77 





FFFF 


OA78 





5E3E 


0A79 





9A9E 


0A7A 





211E 


0A7B 





3E62 


0A7C 





3200 


0A7D 





FFFF 


0A7E 





923E 


0A7F 





9A21 


0A80 





2121 


0A81 





723E 


0A82 





9621 


0A83 





2121 


0A84 





1E52 


0A85 





5E21 


0A86 





2184 


0A87 





2276 


0A88 





9E62 


0A89 





569E 


0A8A 





219A 


0A8B 





5E52 


0A8C 





9200 


0A8D 





FFFF 


0A8E 





923E 


0A8F 





9A21 


0A90 





2121 


0A91 





7222 


0A92 





7621 


0A93 





2121 


0A94 





1E52 


0A95 





5E21 


0A96 





2184 


0A97 





2276 


0A98 





9E62 


0A99 





569E 


0A9A 





2112 


0A9B 





3E9A 


0A9C 





9E00 


0A9D 





FFFF 



AFD 



DC 
DC 
DC 
DC 
DC 
DC 



ANRDY DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

* 

ALDBK DC 
DC 
DC 
DC 
DC 
DC 



* 
ALCD 



ATL 



* 
ATS 



DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



/761E 
/2600 
/FFFF 
/1236 
/3632 
/FFFF 

/7662 
/32A6 
/2184 
/5662 
/369A 
/9A21 
/FCFO 
/F0D8 
/219A 
/9E3E 
/629E 
/FFFF 

/5E32 
/2100 
/1A5E 
/3E76 
/5A9A 
/FFFF 

/5E3E 
/9A9E 
/211E 
/3E62 
/3200 
/FFFF 

/923E 
/9A21 
/2121 
/723E 
/9621 
/2121 
/1E52 
/5E21 
/2184 
/2276 
/9E62 
/569E 
/219A 
/5E52 
/9200 
/FFFF 

/923E 
/9A21 
/2121 
/7222 
/7621 
/2121 
/1E52 
/5E21 
/2184 
/221b 
/9E62 
/569E 
/2112 
/3E9A 
/9E00 
/FFFF 



FEED 



NRDY - PRESS 1442 START 



LOAD BLANKS 



LAST CARD 



WAS MAX -COL INTRPT SLOW 



WAS MIN -COL INTRPT FAST 



32F12950 

32F12960 

32F12970 

32F12980 

32F12990 

32F13000 

32F13010 

32F13020 

32F13030 

32F13040 

32F13050 

32F13060 

32F13070 

32F13080 

32F13090 

32F13100 

32F13110 

32F13120 

32F13130 

32F13140 

32F13150 

32F13160 

32F13170 

32F131B0 

32F13190 

32F13200 

32F13210 

32F13220 

32F13230 

32F13240 

32F13250 

32F13260 

32F13270 

32F13280 

32F13290 

32F13300 

32F13310 

32F13320 

32F13330 

32F13340 

32F13350 

32F13360 

32F13370 

32F13380 

32F13390 

32F13400 

32F13410 

32F13420 

32F13430 

32F13440 

32F13450 

32F13460 

32F13470 

32F13480 

32F13490 

32F13500 

32F13510 

32F13520 

32F13530 

32F13540 

32F13550 

32F13560 

32F13570 

32F13580 

32F13590 

32F13600 

32F13610 

32F13620 
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0A9E 





3E00 


0A9F 





B616 


OAAO 





211E 


0AA1 





525E 


0AA2 





2122 


0AA3 





769E 


0AA4 





6256 


0AA5 





9E21 


0AA6 





9E22 


0AA7 





7236 


0AA8 





FFFF 


0AA9 





3676 


OAAA 





9E36 


OAAB 





6221 


OAAC 





7252 


OAAD 





3221 


OAAE 





76B2 


OAAF 





721A 


OABO 





3662 


OAbl 





FFFF 


0A62 





5E32 


0AB3 





2156 


0Ab4 





1E26 


0AB5 





3632 


0Ab6 





211E 


0AB7 





3E62 


0AB8 





329A 


0AB9 





FFFF 


OABA 





56B2 


OABB 





761E 


OABC 





2621 


OAbD 





3236 


OABE 





5E3E 


OABF 





A621 


OACO 





8421 


0AC1 





0000 


0AC2 





FFFF 


0AC3 





C400 


0AC4 





FCOO 


0AC5 





D800 


0AC6 





DCOO 


0AC7 





FOOO 


0AC8 





F400 


0AC9 





DOOO 


OACA 





0400 


OACB 





E400 


OACC 





EOOO 


OACD 





FCC4 


OACE 





FCFC 


OACF 





FCD8 


OAOO 





FCDC 


0AD1 





FCFO 


0AD2 





FCF4 



0AD3 





8010 


0A04 





4020 


0A05 





2040 


0AD6 





1080 


0AD7 





0900 


0AD8 





0600 



ACOLT 


DC 


/3E00 




DC 


/B616 




DC 


/211E 




DC 


/525E 




DC 


/2122 




DC 


/769E 




DC 


/6256 




DC 


/9E21 




DC 


/9E22 




DC 


/7236 




DC 


/FFFF 


* 






AMOD 


DC 


/3676 




DC 


/9E36 




DC 


/6221 




DC 


/7252 




DC 


/3221 




DC 


/76B2 




DC 


/721A 




DC 


/366 2 




DC 


/FFFF 


* 






ALPC 


DC 


/5E32 




DC 


/2156 




DC 


/1E26 




DC 


/3632 




DC 


/211E 




DC 


/3E62 




DC 


/329A 




DC 


/FFFF 


* 






APDLY 


DC 


/56B2 




DC 


/761E 




DC 


/2621 




DC 


/3236 




DC 


/5E3E 




DC 


/A621 




DC 


/8421 


AOFCT 


DC 


*-* 




DC 


/FFFF 




DC 


/C400 




DC 


/FCOO 




DC 


/D800 




DC 


/DCOO 




DC 


/FOOO 




DC 


/F400 




DC 


/DOOO 




DC 


/D400 




OC 


/E400 




DC 


/EOOO 




DC 


/FCC4 




DC 


/FCFC 




DC 


/FCD8 




DC 


/FCDC 




DC 


/FCFO 


£ 


DC 


/FCF4 


* 






******************* 


* 




PUNCH 


***** 

* 

POATA 


**************: 


DC 


/8010 




DC 


/4020 




DC 


/2040 




DC 


/1080 




DC 


/0900 




DC 


/0600 



AVG COL INTRPT TIME 



ENTER MOO NUMBER 



LD PCHED CARDS 



PUNCH DELAY 



DELAY FACTOR 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 



COLUMN 1 



32F13630 
32F13640 
32F 13650 
32F13660 
32F13670 
32F136 80 
32F 13690 
32F13700 
32F13710 
32F13720 
32F 13730 
32F 13740 
32F13750 
32F13760 
32F13770 
32F13780 
32F13790 
32F13800 
32F13810 
32F13820 
32F 13830 
32F13840 
32F 13850 
32F13860 
32F 13870 
32F13880 
32F 13890 
32F 13900 
32F13910 
32F13920 
32F 13930 
32F13940 
32F13950 
32F13960 
32F13970 
32F13980 
32F 13990 
32F 14000 
32F 14010 
32F 14020 
32F 14030 
32F 14040 
32F 14050 
32F 14060 
32F 14070 
32F 14080 
32F 14090 
32F14100 
32F14110 
32F14120 
32F14130 
32F14140 
32F14150 
32F14160 
32F14170 
32F14180 
32F14190 
32F14200 
32F14210 
32F14220 
32F 14230 
32F 14240 
32F 14250 
32F14260 
32F 14270 
32F14280 
32F 14290 
32F14300 



0AD9 





0600 


OADA 





0900 


OADB 





1080 


OADC 





2040 


OADD 





4020 


OAUE 





8010 


OADF 





FFFO 


OAEO 





8880 


0AE1 





CCCO 


0AE2 





EEEO 


0AE3 





FFFO 


0AE4 





7770 


0AE5 





3330 


0AE6 





1110 


0AE7 





FFFO 


0AE8 





AOOO 


0AE9 





9000 


OAEA 





8800 


OAEB 





8400 


OAEC 





8200 


OAED 





8100 


OAEE 





8080 


OAEF 





8040 


OAFO 





8020 


0AF1 





8010 


0AF2 





5000 


OAF 3 





4800 


0AF4 





4400 


OAF 5 





4200 


0AF6 





4100 


OAF 7 





4080 


0AF8 





4040 


0AF9 





4020 


OAFA 





4010 


OAFB 





3000 


OAFC 





2800 


OAFD 





2400 


OAFE 





2200 


OAFF 





2100 


OBOO 





2080 


0B01 





2040 


0B02 





2020 


0B03 





2010 


0B04 





0000 


0B05 





FCOO 


0B06 





03F0 


0B07 





FCOO 


0B08 





03F0 


0B09 





0000 


OBOA 





8880 


OBOB 





4440 


OBOC 





2220 


OBOD 





1110 


OBOE 





0000 


OBOF 





8880 


0B10 





CCCO 


0B11 





AAAO 


0B12 





9990 


0B13 





4440 


0B14 





6660 


0B15 





5550 


0B16 





2220 


0B17 





3330 


0B18 





1110 


0B19 





0000 


0B1A 





0000 


0B1B 





FFFO 


0B1C 





FFFO 



DC 


/0600 




DC 


/0900 




DC 


/1080 




DC 


/2040 




DC 


/4020 




DC 


/8010 




DC 


/FFFO 




DC 


/8880 




DC 


/CCCO 




DC 


/EEEO 




DC 


/FFFO 




DC 


/7770 




DC 


/3330 




DC 


/1110 




DC 


/FFFO 


COL 21 


DC 


/AOOO 




DC 


/9000 


ALPHA RIPPLE 


DC 


/8800 




DC 


/8400 




DC 


/8200 


COL 26 


DC 


/8100 




DC 


/8080 




DC 


/8040 




DC 


/8020 




DC 


/8010 




DC 


/5000 




DC 


/4800 




DC 


/4400 




DC 


/42 00 




DC 


/4100 




DC 


/40 80 




DC 


/4040 




DC 


/4020 




DC 


/4010 


COL 40 WAREA 


DC 


/3000 




DC 


/2800 




DC 


/2400 




DC 


/2200 




DC 


/2100 




DC 


/2080 




DC 


/2040 




DC 


/2020 




DC 


/2010 




DC 


/OOOO 




DC 


/FCOO 




DC 


/03F0 




DC 


/FCOO 




DC 


/03F0 




DC 


/OOOO 




DC 


/8880 




DC 


/4440 




DC 


/2220 




DC 


/mo 




DC 


/OOOO 




DC 


/8880 




DC 


/CCCO 




DC 


/AAAO 




DC 


/9990 




DC 


/4440 




DC 


/6660 




DC 


/5550 




DC 


/2220 




DC 


/3330 




DC 


/1110 




DC 


/OOOO 




DC 


/OOOO 




DC 


/FFFO 




DC 


/FFFO 





32F14310 
32F14320 
32F14330 
32F14340 
32F14350 
32F14360 
32F14370 
32F14380 
32F14390 
32F14400 
32F14410 
32F14420 
32F 14430 
32F14440 
32F14450 
32F14460 
32F14470 
32F14480 
32F14490 
32F14500 
32F14510 
32F14520 
32F14530 
32F14540 
32F14550 
32F14560 
32F14570 
32F14580 
32F14590 
32F146 00 
32F14610 
32F14620 
32F14630 
32F14640 
32F14650 
32F14660 
32F14670 
32F14680 
32F14690 
32F14700 
32F14710 
32F14720 
32F14730 
32F14740 
32F14750 
32F14760 
32F14770 
32F14780 
32F14790 
32F14800 
32F14810 
32F14820 
32F14830 
32F14840 
32F14850 
32F14860 
32F14870 
32F14880 
32F14890 
32F14900 
32F14910 
32F14920 
32F14930 
32F14940 
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0B1D 





FFFO 


0B1E 





FFFO 


0B1F 





FFFO 


0B20 





FFFO 


0B21 





FFFO 


0B22 





0000 


0B23 




0051 



DC 


/FFFO 


DC 


/FFFO 


DC 


/FFFO 


DC 


/FFFO 


DC 


/FFFO 


DC 


/OOOO 


BSS 


81 



COLUMN 80 



* STORAGE BUFFERS 

**********#:t^**************** *************** 

READ BUFFER 



0B74 


0053 


RTBL 

* 


BSS 


83 


0BC7 
0C19 
OCIA 


0052 

FFFF 

05E8 


TIME 


BSS 
DC 

END 
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/FFFF 

BGIN 



INTERRUPT TIME BUFFER 
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32F15130 
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ABDSW 
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ACNBK 
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ADATA 

ADFCT 

ADSW 

ADSH4 
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AECK 

AFD 

ALCD 

ALDBK 

ALOP 

ALPC 

AMOD 

AN I NT 

ANRDY 

APCH 

APCK 

APDLY 

ARD 

ASDSW 

ATL 

ATS 

AVG 

AVGCT 
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BCNT 

BDSM 
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BGIN 

BOX 
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B0X2 
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CN10 
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C0MP2 

C0MP3 
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ERR3 
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ERR5 
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ERR5R 
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ERR6 
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ERR7 
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0889,0955 




ERR9 
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089C 
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ERX 
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ERX1 


08C1 
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ERX2 


08C5 


08C0 




ETYPE 


08EC 


0832, 0842, 0852, 0869, 087C, 0881, 0888, 089C,08C5,08FF 
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ETYP1 


08FA 


08F5 




ETYP2 


08FF 
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08C7 


08A4,08B1 




EXR3 


08C9 


08A5,08B2 




FEED 


0969 


09DA 




FIVE 


0685 
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07E5 


0736, 074C, 0816 
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07F6 
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HUND 


081F 


07F3 




ILO 


017A 


05F1 
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018A 
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019A 
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K8000 
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LOCK 


0822 
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LOG 
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LOGBY 
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LOUP 
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LRTN 
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LSTCD 


09D6 
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MAXPD 


OAOO 
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MOO 


0630 
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MODNM 
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M006 


0638 


0634 




MOD 7 


0649 
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MSGO 


08CE 


082E 




MSG1 


08D0 


083E 




MSG10 


08E0 


08A7 
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08E2 


08 B4 
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08D2 


0850 
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08D4 


0938 




MSG5 


08D6 


0867 




MS66 
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087B 




MSG7 


08DA 


0880 
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08DC 
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MSG9 


08DE 


089B 
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09D0 






NRTN 
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ONE 
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0640,0712 
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READ 


0784 
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05DD 
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RTNSW 
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0997 
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